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Introduction 

This book describes a number of programs, written in the BASIC^ programming language. These pro- 
grams perform a variety of common, practical tasks. The programs are written in a restricted subset of stan- 
dard BASIC that is compatible with many versions of BASIC now available to microcomputer users. 

You can use this book whether or not you know how to write programs in BASIC. 

We do not teach you how to program in BASIC; there are probably hundreds of books trying to do 
that. But we do describe progams carefully and include user examples with the program listings. So if you 
are not familiar with BASIC, simply copy the program listings into your computer; then run the programs 
as illustrated in the examples. 

Remarks are included in the listings to help BASIC programmers understand how each program 
works. They will also assist you in identifying parts of programs that you may be able to use in other pro- 
grams you write. Remark statements precede the line(s) on which they comment. REM statements should be 
omitted when you enter programs, since they are ignored by the computer and simply use up memory. 

Options are also included with some programs. An option is an alteration which changes the input or 
output format of the original program. Options may suggest ways in which you can further alter the pro- 
grams. We have included a brief description, example, sample run and partial listing of each option. The 
partial listing includes those program statements which are changed when going from the original pro- 
gram to the optional program. Lines which must be altered, added or deleted are shaded in both listings. 

All programs can be run using a Teletype^ or similar input/output device with a line width as short as 
72 characters. If the line width on your output device is less than 72 characters, you may want to alter the 
print statements within programs that print longer lines. 

Certain programs will require additional programming if you use a CRT display or separate printing 
device for output. If using a CRT, you will probably want to put a pause in some programs after displaying 
one screenful of data; otherwise, the data will be displayed faster than you can read it. If using a separate 
printing device for your output you may need to add print device select statements to the programs. 

All programs in this book have been tested, run and listed on a Wang 2200 computer system. They 
have also been tested and run on a Commodore PETl Some of this testing was with programs modified for 
better efficiency on the PET. 

BASIC Compatibility 

Readers of the first and second editions of this book have helped locate typographical and program- 
ming errors and have informed us of some compatibility problems for users with different BASICs. For this 
third edition we have done some reprogramming to eliminate errors and help solve the compatibility prob- 
lems. Even so, you should be aware of some general compatibility problems which may occur. 

1) Some programs may branch out of a FOR/NEXT loop before its iteration is complete. If branching out 
in the middle of a FOR/NEXT loop causes an error in your BASIC, you can change the FOR/NEXT loop 
at that point to branch to the NEXT statement, avoiding any program statements which would alter 
other variable values as the loop completes itself. 

2) When a FOR/NEXT loop is completed, the index variable should remain set to its highest value when 
the progam resumes after the loop. For example, in the following program the value of I at line 30 
should be 10. 

10 FOR 1 = 1 TO 10 
20 NEXT I 
30 PRINT I 

"• BASIC is a registered trademark of the Trustees of Dartmouth College, 
^Teletype is a registered trademark of the Teletype Corporation. 
3pET is a registered trademark of Commodore, Inc, 
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Your BASIC may say I = 1 1 at line 30. To fix this, add a new line after the NEXT statement to decre- 
ment the index variable by one. In the above program, add the following: 

25 I « I - 1 

If you have a BASIC which does nor have a FOR/NEXT index variable keep its value outside the loop, you 
will have to set the variable equal to the end value of the loop once outside the loop (you need to do this 
only if that index variable value is used later in the program). 

3) One variation of the RESTORE command is RESTORE n. where n refers to the /?th item on the data list 
and this nth item is to be read in the next READ statement. If your BASIC does not accept RESTORE n, 
change that part of the program to RESTORE, then loop to read data to the nth jtem. 

4) If your BASIC does not set all variables to zero for each RUN (unless another value is specified in a 
statement), then you will have to write statements to initialize each variable to zero at the beginning of 
each program. 

5) Some programs use DEF FNR ( ). If not implemented, substitute this expression (with appropriate varia- 
ble) for each callout of FNR. 

6) Some programs use the TAB function with the PRINT statement. You can usually replace it with a 
string of blanks of the appropriate length. For instance, PRINT TAB (5); A1 could be PRINT " "; A1. 

Program Errors 

If you encounter an error or program difficulty which you believe is not your fault, we would like to 
hear about it Please write the authors in care of the publishers, and include the followng information: 

1) description of the error 

2) data entered which caused the error 

3) source listing of your program, from your computer (if possible) 

4) any corrections you have 

We appreciate your help in creating a book of tested BASIC programs that anyone can use. 
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Futyre Value of an investment 



This program calculates a future value of an investment when interest is a factor. You must provide the 
amount of the initial investment, the nominal interest rate, the number of compounding periods per year and the 
number of years of investment. 

Assuming there are no additional deposits and no withdrawals, the future value is based on the following 
formula: 

T = P{^+HN)N "Y 

where: T = total value after Y years (future value) 

P — initial investment 

/ = nominal interest rate 

N = number of compounding period per year 

y — number of years 

Examples: 

Carl makes an investment of $6800.00 at 9.5%. If interest is compounded quarterly, what will be the value 
of Carl's investment in 10 years? 

Mr. Smith purchases a piece of property for $16,050.00. The value of property is rising at an average of 7% 
per year. What may Mr. Smith expect his property to be worth in ^Vi years? 

S RUM 

FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 6800 

NOMINAL INTEREST RATE? 9.5 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 4 

NUMBER OF YEARS? 10 

FUTURE VALUE=$ 17388.64 

MORE DATA? < i=VES »0=NO ) ? 1 

INITIAL INVESTMENT? 16050 
NOMIi-IAL INTEREST RATE? 7 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 1 
NUMBER OF YEARS? 5.5 

FUTURE VALUE =* S3E85.51 

MORE DATA? ( i=YES »0=NO ) ? 
END PROGRAM 

PROGRAM LISTING 

10 PRINT "FUTURE VALUE OF AN INVESTMENT" 

aO PRINT 

S9 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 

40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 



so 


INPUT 


70 


PRINT 


80 


INPUT 


90 


PRINT 


iOO 


INPUT 


108 


REM - 


109 


REH - 


110 


I=I/H, 


119 


REH - 


leo 


T=P*c; 


IBB 


REM - 


130 


PRINT 


139 


REM - 


140 


PRINT 


149 


REM - 


150 


PRINT 


160 


INPUT 


170 


IF X = 


ISO 


END 



I 

"NUMBER OF COMPOUNDING PERIODS PER YEAR"; 
N 

"NUMBER OF YEARS"? 
Y 

CALCULATE INTEREST RATE PER PERIOD! 

CONVERT FROM PEr<CENT TO DECIMAL 
'100 

CALCULATE FUTURE VALUE BY FORMULA 
.■fI)tCN-»Y) 

ROUND OFF TO NEAREST CENT, PRINT 

"FUTURE VALUE=*"; INT (T^lOO-s- .5) /IOO 

PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

RESTART OR END PROGRAM? USER INPUT REQUIRED 

"MORE DATA? U=Y£S,0=NO) "; 
X 

I THEN EO 



OPTION 

This program allows you to enter a term of investment in whole years or decimal parts only. In some cases 

you may wish to enter the term of investment in years and months rather than just years. The program changes 
necessary follow the example listed below. 

Example: 

Herb invests $12,000.00 at 8% Interest. Interest is compounded quarterly. What is the value of his invest- 
ment at the end of 10 years and 7 months? 

: RUN 

FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? ISOOO 

NOMINAL INTEREST RATE? 8 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 4 

NUMBER OF YEARS, MONTHS? 10,7 

FUTURE VALUE =f> 07749,5 

MORE DATA? U«YES,0=NO)? 

END PROGRAM 

PROGRAM LISTING 

i REM - OPTION 90-105 
10 PRINT "FUTURE VALUE OF AN INVESTMENT'^ 

# 

80 INPUT N 

90 PRINT "NUMBER OF YEARS, MONTHS"? 

100 INPUT YO,M 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

105 Y=<ia*Y0-^M)/iE 

lOS REM - CALCULATE INTEREST RATE PER PERIOD; 

s 

ISO END 



Future Value of Regular Deposits lAnnuity) 



This program calculates a future value when deposits are made regularly. All deposits are equal. You must 
provide the amount of each deposit, the number of deposits per year, the number of years, and the nominal in- 
terest rate. 

Assuming that interest is compounded with each deposit, the calculation is based on the following formula: 

T^R. ^ — 

where: T = total value after Y years {future value) 

R — amount of regular deposits 

N = number of deposits per year 

Y = number of years 

/ = nominal interest rate 

Examples: 

$50.(K} is transferred each month from Matt's checking account to a Christmas Club savings account with 

5% interest. How much will Matt receive at the end of the year? 

Tim makes annuity payments of $175.00. The interest is 5.5%. What amount will Tim have accumulated in 

15 years? 

: RUN 

FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY) 

AHOUNT OF REGULAR DEPOSITS? 50 
NOMINAL INTEREST RATE? 5 
NUHBER OF DEPOSITS PER YEAR? IS 
NUMBER OF YEARS? 1 
FUTURE VALUE ^ * 613.94 

MORE DATA? <1=YES, 0=NO>? i 

AMOUNT OF REGULAR DEPOSITS? 175 
NOMINAL INTEREST RATE? 5.5 
NUMBER OF DEPOSITS PER YEAR? 1 
NUMBER OF YEARS? 15 
FUTURE VALUE = ^ 3981.58 

MORE DATA? (i=YES. 0=NO)? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS ANNUITY)" 

EO PRINT 

as REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "AMOUNT OF REGULAR DEPOSITS"? 

40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE"? 



60 INPUT I 

70 PRINT "NUMBER OF DEPOSITS PER YEAR"? 

80 INPUT N 

90 PRINT "NUMBER OF YEARS"? 

100 INPUT Y 

lOB REM - CALCULATE INTEREST RATE PER DEPOSIT. 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/iOO 

119 REM - CALCULATE FUTURE VALUE BY FORMULA 

lEO T=R*( <l-4-I)f (N*Y)-1)/I 

iS9 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "FUTURE VALUE = ^"| INT(T«100"i- .5) /lOO 

139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? C1=YES, 0-NO)"? 
160 INPUT X 

170 IF X=l THEN SO 

180 END 

OPTION 

You may wish to enter the term of investment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

How much will Ron receive in 10 years and 5 months if he transfers $50.(X) each month into a trust fund 
with 5% interest? 

^RUN 

FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY) 

AMOUNT OF REGULAR DEPOSITS? 50 
NOMINAL INTEREST RATE? 5 
NUMBER OF DEPOSITS PER YEAR? IE 

NUMBER OF YEARS, MONTHS? 10,5 

FUTURE VALUE == ^ 8179.31 

MORE DATA? «1=YES, 0=NO)? 
END PROGRAM 

PROGRAM LISTING 

1 REM - OPTION 90-105 

10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)" 

@ 

e 

9 

_ 80 INPUT N 

I 90 PRINT "NUMBER OF YEARS > MONTHS"? 

100 INPUT YO,M 

il04 REM - CALCULATE YEARS FROM YEARS AND MONTHS 
:i05 Y=(ia*Y0-4-M)/lE 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT , 

a 

180 END 



Regular Deposits 



This program calculates the amount required as a regular deposit to provide a stated future value in a 
specified time period. All deposits are equal. It is necessary for you to supply the future value, the nominal in- 
terest rate, the number of deposits per year and the numter of years. 

The calculation for regular deposits is based on the following formula: 

i/N \ 



R^T 



(H-Z/A/l^-V-l 



where: R = amount of regular deposit 

T = future value 

/ = nominal interest rate 

N = number of deposits per year 

Y = number of years 

Examples 

Mary would like $10(X3.(X) at the end of one year in a savings account. How much must she deposit each 

month at 8% interest to achieve this? 

tRUM 

REGULAR DEPOSITS 

TOTAL VALUE AFTER Y YEARS? 10 00 
NOMINAL INTEREST RATE? 8 
NUMBER OF DEPOSITS PER YEAR? le 
NUMBER OF YEARS? i 
REGULAR DEPOSITS = t^ 80«3S 

MORE DATA?(1='YES,0=NO)? 
ENU PROGRAM 



PROGRAM LISTING 

10 PRINT "REGULAR DEPOSITS" 
eO PRINT 

E9 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "TOTAL VALUE AF'lER Y YEARS"? 
40 INPUT T 

50 ■ PRINT ''NOMINAL INTEREST RATE"? 
60 INPUT I 

70 PRINT "NUMBER OF DEPOJ-ilTS PER YEAR"? 
80 INPUT N 

90 - PRINT "i^^UMBER OF YEARJri"? 
100 INPUT V 

108 • REM ~ CALCULATE INTEREST RATE PER DEPOSIT; 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 ■ I-I/N/100 



119 


REH - 


leo 


R=T*Ii 


1S9 


REH - 


130 


PRINT 


139 


REH - 


140 


PRINT 


14-9 


REH - 


150 


PRINT 


160 


INPUT 


170 


IF X= 


180 


END 



- CALCULATE AHGUHT OF REGULAR DEPOSIT BY FORHULA . 
( CI-i-l)t(N-»Y)-l) 

ROUND OFF TO NEAREST CENT, PRINT 
"REGULAR DEPOSITS = *" ?INT (R*i00+ «5) /lOO 
PRINT BLANK LINE TO SEPARATE DATA FRDH QUESTION 



H a 



RESTART OR END PROGRAH? USER INPUT REQUIRED 
"HORE DATA?(i=YES.0=NO) 
X 
1 THEN aO 



OPTION 

You may wish to enter the term of investrhent in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

Ed would like to save $2000.00 for a new motorcycle. He would like to achieve this amount in 1 year and 5 
months. How much must he deposit each month if his interest is 8%? 

I RUN 

REGULAR DEPOSITS 

TOTAL VALUE AFTER Y YEARS? EOOO 
NOHINAL INTEREST RATE? 8 
NUMBER OF DEPOSITS PER YEAR? IE 
NUHBER OF YEARS, HONTHS? 1,5 
REGULAR DEPOSITS ^ ^ 111»5 

MORE DATA?a=YES,0=NO)? 
END PROGRAH 



PROGRAM LISTING 

I REM -• OPTION 90-105 
10 PRINT "REGULAR DEPOSITS" 

80 INPUT H 

90 PRINT "NUHBER OF YEARS, MONTHS"; 

100 INPUT Y0,H 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

105 ' Y=<ia*Y0+H)/ia 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT; 

e 
s 

180 ' END 



Regular Withdrawals from ao Investment 



This program calculates the maximum amount which may be withdrawn regularly from an investment over 
a specified time period. All withdrawals are assumed to be equal. You must provide the amount of the initial in- 
vestment, the nominal Interest rate, the number of withdrawals per year and the number of years. 

The maximum amount of withdrawals is calculated by the following formula: 

UN 



R=P 



('\+ilN)N'Y.^ 



where: R = amount of regular withdrawal 

P — initial investment 

/ = nominal interest rate 

N = number of withdrawals per year 

Y = number of years 

Because this program calculates a maximum amount, a balance of $0.00 will be left in your account at the 
end of the time period. You may withdraw any lesser amount under the same specifications and leave a remain- 
ing balance in your account. 

Example: 

David invests $8000.CX) at 9.5%. He plans to make regular withdrawals every month for ten years, leaving 
nothing at the end. How much should he withdraw each time? 

I RUN 

REGULAR WITHDRAWALS FROH AN INVESTMENT 

INITIAL INVESTMENT? 8000 

NOMINAL INTEREST RATE? 9.5 

NUMBER OF WITHDRAWALS PER YEAR? IE 

NUMBER OF YEARS? 10 

AMOUNT OF EACH WITHDRAWAL « * 10332 

MORE DATA?<1=YES»0=NO)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" 

ao PRINT 

E9 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 

40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT 1 

70 PRINT "NUMBER OF WITHDRAWALS PER YEAR"; 

80 INPUT N 

" 90 PRINT "NUMBER OF YEARk"? 

100 INPUT Y 



108 REH - CALCULATE INTEREST RATE PER. WITHDRAWAL? 

109 REM » CONVERT FROH - PERCENT TO DECIHAL 

110 I=I/N/100 

119 REH - CALCULATE REGULAR WITHDRAWAL BY FDRHULA 

laO R=P^ C I / C C i-^-I ) f iH^Y ) -1 ) 4-1) 

iE9 REM - ROUND OFF TO -NEAREST CENT, PRINT 

130 PRINT "AMOUNT OF EACH WITHDRAWAL ~ ^"; INT CR^lOO-f «5 ) /lOO 

13S REM - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA 

140 PRINT 

149 REM - RESTART OR END PROGRAM? 

150 PRINT "MORE DATA? C1=YHS .0=NO) " ; 
160 INPUT X 

170 IF X=l THEN EO 

180 END 

OPTiOW 

It may be more convenient to enter the period of investment in years and months rather than just years. The 
program changes necessary are listed foliowing the example below. 

Example" 

How much could be withdrawn each week if you have an investment of $8(XX).CX} at 9.5% interest to be 
withdrawn from for 10 years and 5 months? 

: RUN 

REGULAR WITHDRAWALS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8000 

NOMIi--!AL INTEREST RATE? 9.5 

NUMBER OF WITHDRAWALS PER YEAR? 5E 

NUMBER -OF YEARS > MONTHS? 10,5 

AMOUNT OF EACH WITHDRAWAL = ^ E3.E8 

MORE DATA?(i=YES,0=NQ)? 

END PROGRAM 



PROGRAM LISTING 

1 REM - OPTION 90-105 

10 PRIN-f "REGULAR WITHDRAWALS FROM AN INVESTMENT^ 



80 INPUT N 

90 PRINT "NUMBER OF YEARS . MONTHS"? 

100 INPUT YO,M 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

105 Y=^aa*Y0-4-M)/iS 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL? 

a 
a 

@ 

180 Ei^lD 



initial Investment 



This program calculates the investment necessary to provide a stated future value in a specified time period. 
You must enter the future value of the investment, the number of years of investment, the number of compound- 
ing periods per year and the nominal interest rate. 



The formula used to calculate the initial investment is as follows: 



(1+///V)/V<»/ 

where: P = initial investment 

T = future value 

N = number of compounding periods per year 

Y = number of years 

/ = nominal interest rate 

Examples: 

How much must you invest at 8.5% to produce $10,0(X).00 at the end of 10 years if interest is compounded 
quarterly? 

Merchant Savings wishes to sell a bond which will be worth $5000.00 five years from the purchase date. In- 
terest will be 7.9% compounded daily. How much must the bank charge for the bond? 

: RUM 

INITIAL INVESTHENT 

TOTAL VALUE AFTER Y YEARS? 10000 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 4 

NUMBER OF YEARS? 10 
NOMINAL INTEREST RATE? 8.5 
INITIAL INVESTMENT = % 4312. 33 

MORE DATA? < i^YES ,0=NO) ? 1 

TOTAL VALUE AFTER Y YEARS? 5000 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 365 
NUMBER OF YEARS? 5 
NOMINAL INTEREST RATE? 7.9 
INITIAL INVESTMENT = ^ 3368^54 

MORE DATA? < 1=YES ,0=NO) ? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "INITIAL INVESTMENT" 

EO PRINT 

as REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TOTAL VALUE AFTER Y YEARS"; 

40 INPUT T 



50 


PRINT 


60 
70 


INPUT 

illitii 


80 

90 


ililili 

PRINT 


100 


INPUT 


108 


REH - 


109 


REH - 


ilO 


1=1 /H 


119 


REM - 


lEO 


P=T/( 


189 


REH - 


130 


PRINT 


139 


REH - 


140 


PRINT 


149 


REH - 


150 


PRINT 


160 


INPUT 


170 


IF X= 


180 


END 



"NUMBER OF COHPHUNDING 
N 



PERIODS PER YEAR' 



"NOHINAL INTEREST RATE"? 

I 

CALCULATE INTEREST RATE PER. PERIOD; 

CONVERT FROH % TO DECIHAL 
/lOO 

CALCULATE INITIAL INVESTMENT BY FORMULA 
l-fIH<N^Y> 

ROUND OFF TO -NEAREST CENT, PRINT 

-INITIAL INVESTMENT ^ $" UNT (P^IOO-J- ,5) /lOO 

PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

RESTART OR END PROGRAM? USER INPUT REQUIRED 
"MORE DATA? CisYES.0=NO) " ? 
X 
1 THEN aO 



OPTION 

The program above allows you to enter a period of investment of whole years and decimal parts only. You 
may wish to enter the period of investment in years and months rather than just years. The program changes 
necessary are listed following the example below. 

Example: 

Mary wishes to invest a sum in a savings bank. In 3 years and 8 months she would like to have $4000.00 in 
her account. If 8% interest is compounded monthly, what amount must Mary invest? 

^RUN 

INITIAL INVESTMENT 

TOTAL VALUE AFTER Y YEARS? 4000 

NUMBER OF COMPOUNDING PERIODS PER YEAR? IE 

NUMBER OF YEARS, MOi^-ITHS? 3^8 

NOMINAL INTEREST RATE? 8 

INITIAL INVESTMENT « % E986 

MORE DATA? CI ^A'ES v =N0 ) ? 

END PROGRAM 



PROGRAM LISTING 

1 REM - OPTION 70-85 
10 PRINT '^INITIAL INVESTMENT'* 

60 INPUT N 

70 PRINT "NUMBER OF S'EARH , MONTHS " ? 

80 INPUT Y0,M 

84 • REM - CALCULATE YEARS FROM YEARS AND MONTHS 

85 Y~(lE*Y0-^M)/iE 

90 PRINT "NOMINAL INTEREST RATE"? 

180 END 



10 



Minimym investment for Withdrawals 



This program calculates the minimum investment required to allow regular withdrawals over a specified 
time period. The amount calculated is dependent upon the amount of each withdrawal, the number of with- 
drawals per year, the number of years, and the nominal interest rate on the investment. All withdrawals are equal. 

Only the least amount necessary for your investment is calculated; the program assumes a balance of $0.00 
to be left at the end of the time period. Any investment larger than the amount calculated will also enable you to 
withdraw the desired amount, but leave a remaining balance. 

Assuming that interest is compounded with each withdrawal, the calculation is based on the following for- 
mula: 

/?"/¥ / 1 \ 

p = 



where: P = initial investment 

R = amount of regular withdrawal 

/ = nominal interest rate 

N = number of withdrawals per year 

Y = number of years 

Example: 

How much must you invest at 6% interest to allow monthly withdrawals of $100.03 for 5 years? 

I RUN 

MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAUALS? 100 

NOMINAL INTEREST RATE? 6 

NUMBER OF yiTHDRAWALS PER VEA-^? IE 

NUMBER OF YEARS? 5 

MINIMUM INVESTMENT = t^ 5172. 5S 

MORE DATA U«YES, 0=NO)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" 

EO PRINT 

E9 REM " STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "AMOUNT OF WITHDRAWALS"; 

40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

70 PRINT "NUMBER OF WITHDRAWALS PER YEAR"? 

80 INPUT N 

90 PRINT "NUMBER OF YEARh"; 

100 INPUT V 
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i09 REM - CONVERT FROM PEi^CENT TO DECIMAL 

iiO I=I/iOO 

119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA 

lEO P=R*N/I*(l--l/( <i + I/N)t<N*Y) ) ) 

lES REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "MINIMUM INVESTMENT = *" ; INT aOO*P-f .5 ) /iOO 

139 REM - PRINT BLANK LINk TO SEPARATE DATA FROM QUESTION 

140 PRINT 

149 REM - RESTART OR END r^ROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA (1=YES, 0=NO)"; 
IGO INPUT X 

170 IF X=l THEN EO 

180 END 

OPTION 

It may be more convenient to enter the term of investment in years and months rather than years. The pro- 
gram changes necessary are listed following the example below. 

Example: 

Tony withdrew $250.00 monthly for 6 years and 5 months. How much was his initial investment at 6% in- 
terest? 

: RUN 

MINIMUM INVESTMEr-IT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? E50 
NOMINAL INTEREST RATE? S 
NUMBER OF WITHDRAWALS PER YEAR? IE 
NUMBER OF YEARS-, MONTHS? 6,5 
MINIMUM INVESTMENT = * 15944.81 

MORE DATA Ci=YES, 0=NO)? 

END PROGRAM 



PROGRAM LISTII-^iG 

1 REM - OPTION 90-105 

10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" 

® 

80 INPUT N 

90 PRINT "NUMBER OF YEARS, MONTHS"? 

100 INPUT YOvM 

104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

105 Y=(l£*YO^M)/iE 

109 REM - CONVERT FROM • PERCENT TO DECIMAL 

o 

ISO END 



12 



nominal Interest Rate on iovestnneiits 



This program calculates the nominal interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. The nominal interest rate is usually subdivided for compounding pur- 
poses. 

"Nominal Interest Rate" is based on the following formula: 

/ = N{TIP) NW . yv 

where: / == nominal interest rate 

P = initial investment 

T = future value 

N = number of compounding periods per year 

Y = number of years 

The nominal interest rate is expressed as a yearly rate even though the interest rate used when compound- 
ing interest is^^. The nominal interest rate will be less than the effective interest rate when interest is compounded 
more than once a year. This is because the nominal rate stated does not take into account interest compounded 
on interest earned in earlier periods of each year. For example, the schedule of earned interest on $100.00 at 5% 

compounded quarteriy would be: 

//100 

PERIOD BALANCE INTEREST NEW BALANCE 

N 

1 $100.(X) • .0125 = $1.25 $101.25 

2 $101.25 » .0125 = $1.27 $102.52 

3 $102.52 « .0125 = $1.28 $103.80 

4 $103.80 • .0125 = $1.30 $105.10 

The effective interest rate in the example is 5.1%, although the nominal rate is 5%. 

Examples: 

Jane invests $945.00 in a savings bank. Four and a half years later her investment amounts to $1309.79. If 

interest is compounded monthly, what is the nominal interest rate offered by the bank? 

Dick invests $3,000.00. Ten years later he has earned $1,576.00 in interest. If interest is compounded each 

month, what is the nominal interest rate on the account? 

IRUH 

NOMINAL INTEREST RATE ON INVESTMENTS 

PRINCIPAL? 945 

TOTAL VALUE? i 30 9. 79 

NUMBER OF YEARS? 4.5 

NUMBER OF COMPOUNDING PERIODS PER YEAR? IS 

NOMINAL INTEREST RATE= 7,E761c;98 % 

MORE DATA: < 1-YES,0=NO)? i 

PRINCIPAL? 3000 
TOTAL VALUE? 4576 
NUMBER -OF YEARS? 10 
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NUMBER OF COMPOUNDING PERIODS PER YEAR? IE 
NOMINAL INTEREST RATE= 4«ES95S608 % 

MORE DATA: C1=VES,0=NO>? 

END PROGRAM 

PROGRAM LISTING 

"NOMINAL INTEREST RATE ON INVESTMENTS" 

STATEMENTS 30 TO iOO REQUEST USER INPUT 

"PRINCIPAL"; 

P 

"TOTAL VALUE'-'? 

T 

"NUMBER OF YEARS"; 
Y 

"NUMBER OF COMPOUNDING PERIODS PER YEAR"; 
N 

CALCULATE NOMINAL INTEREST RATE BY FORMULA, PRINT 
IE=N*( <T/P)f C1/(N*Y) )-l)*iOO 

"NOMINAL INTEREST RATE=" ;IE; "%" 

PRINT BLANK LINh TO SEPARATE DATA FROM QUESTION 

RESTART OR END hROGRAM? USER INPUT REQUIRED 
"MORE DATA I a=YES,0=NO) " ; 
X 
1 THEN EO 
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PRINT 


so 


PRINT 


S3 


REM - 


30 


PRINT 


40 


INPUT 


50 


PRINT 


60 


INPUT 


70 


PRINT 


80 


INPUT 


90 


PRINT 


100 


INPUT 


109 


REM - 


110 


IE=N* 


ISO 


PRINT 


lES 


REM ••• 


130 


PRINT 


139 


REM ~ 


140 


PRINT 


150 


INPUT 


160 


IF x~; 


170 


END 
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Effective Interest Rate 00 Investments 



This program calculates the effective interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. This rate expresses the actual rate of interest earned annually on the in- 
vestment. 

The effective interest rate is calculated by the following formula: 

effective ^ / future value \ ^^^^^""^ ^ ^ 

interest rate I initial investment i 

You may calculate the effective interest rate on amounts you have already invested and accrued interest. Or 
you may calculate the effective interest rate necessary to enable a principal to reach a hypothetical value in a 
specified amount of time. For instance, If you invest $5000.00 in a bank and desire $6800.00 after six years, you 
will predict the effective interest rate the bank must pay in order to achieve this. 

"Effective Interest Rate" may also be used to calculate the effective percent of depreciation of an invest- 
ment. Take your car, for example. If you bought it for $7534.00 and sold it for $3555.00 three years later, you will 
find that its actual depreciation (a negative interest rate) was approximately 22% each year. 

Examples; 

Jane deposits $945.00 in a savings bank. Four and a half years later her account has $1309.79. What actual 
percent of her Initial investment did the bank pay annually? 

Dick bought his car in 1970 for $7534.84 and sold it in 1973 for $3555.00. What was its effective rate of 
depreciation? 

:run 

EFFECTIVE INTEREST RATE ON INVESTHENTS 

INITIAL INVESTMENT? 945 

TOTAL VALUE AFTER Y YEARS? 1309,79 

NUMBER OF YEARS? 4a5 

ANNUAL INTEREST RATE = 7 « 5837588 % 

MORE DATA? < i=YES,0=NO) ? 1 

INITIAL INVESTMENT? 7534.84 

TOTAL VALUE AFTER Y YEARS? -3555 

NUMBER OF YEARS? 3 

ANNUAL INTEREST RATE =-88.150614866 % 

MORE DATA? (1=YES ,0=NO) ? 

END PROGRAM 
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PROGRAM LISTING 

iO PRINT "EFFECTIVL INTE^^EST RATE ON INVESTMENTS" 

EO PRINT 

as REM - STATEMENTS 30-80 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 

40 INPUT P 

SO PRINT "TOTAL VALUE AFTER Y YEARS"; 

60 INPUT T 

70 PRINT "NUMBER OF YEARS"; 

BO INPUT V 

89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT 

90 PRINT "ANNUAL INTEREST RATE = " ; ( (T/P ) f ( 1 /Y ) -1 )*100 ; "% ' 
99 REH „ PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

100 PRINT 

109 REM - RESTART OR END PROGRAM? 

110 PRINT "MORE DATA? U-YES ,0=ND ) " ? 
lEO INPUT X 

130 IF X=:l THEN EO 

140 END 
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Earned interest Taijie 



This program calculates and prints an earned interest table for investments. The schedule contains the 
following outputs: 

1) Periodic balance 

2) Interest accumulated between two periods 

3) Total interest accumulated 

4) Effective interest rate 

These outputs may be calculated for a single investment or for an initial investment with regular deposits or 
withdrawals. If the table is to be tabulated for a single investment, you must provide the amount of the initial in- 
vestment, the nominal interest rate, and the number of compounding periods per year. Your new balance will be 
printed a maximum of four times per year. If interest is compounded less than four times per year, your new bal- 
ance will be posted with each interest computation. 

If the table is tabulated for regular deposits or withdrawals, you must provide the amount of the initial in- 
vestment, the nominal interest rate, the number of deposits or withdrawals per year and their amount. In this 
case it is assumed interest is compounded daily (360-day year). Your new balance will be printed at each deposit 

or withdrawal. 

Examples: 

Sally invests $20(X).00 at 9.5% in a trust fund for ten years. Interest is compounded monthly. What is her 

yearly balance and earned interest for the last two years? 

John deposits $1000.00 at 8% in a passbook savings account. From each monthly paycheck $50.00 is 

deposited in this account. What is the earned interest table for the first year of this account? 

Ted deposits $1000.00 at 8% in his savings. Each quarter he withdraws $150.00. What is the earned in- 
terest table for year one of this account? 

: RUN 

EARNED INTEREST TABLE 

PRINCIPAL? EOOO 

NOMINAL INTEREST RATE? 9.5 

NUMBER OF DEPOSITS /WITHDRAWALS PER YEAR? 

NUMBER OF COMPOUNDING PERIODS PER YEAR? IE 

START WITH WHAT YEAR? 9 

END PRINTING WITH WHAT YEAR? 10 
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EARNED INTEREST TABLE 
PRINCIPAL ^ EOOO AT 9.5 % HOHIMAL FOR 10 YEARS 
EFFECTIVE INTEREST RATE 9.92 % PER YEAR 



YEAR 
9 



BALANCE 

4365.87 
4470.38 
4577.39 
4686.97 



INTEREST 

e365.S6 
i04.51 
i07«01 
109.58 



ACCUM« INTEREST 

E365.87 
S470.38 
8577^39 
E68S«97 
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4799.17 
4914.06 
5031.7 
515E.15 



IIS.S 
ii4e89 
117.64 
iEO.45 



0799.17 
S914«06 
3031 .7 
315S«15 



CHANGE -DATA AND RECOMPUTE? C1=YES. 0=NO)?. 1 



PRINCIPAL? 1000 

NOHINAL INTEREST RATE? 8 

NUMBER OF DEPOSITS /WITHDRAWALS PER YEAR? IS 

AMOUNT OF DEPOSIT /WITHDRAWAL? 50 

START WITH WHAT YEAR? 1 

END PRINTING WITH WHAT YEAR? 1 

EARNED INTEREST TABLE 
PRINCIPAL ^ 1000 AT 8 % NOMINAL FOR 1 YEARS 
REGULAR DEPOSIT /WITHDRAWAL % 50 IE TIMES PER YEAR 
EFFECTIVE INTEREST RATE 8^33 % PER YEAR 



YEAR 



BALANCE 

1056^7 

1113.78 

1171 .e4 

lEES-OS 

lE87.3a 

1345.94 

1404.95 

1464^36 

15E4.17 

1584.38 

1644.98 

1706 



INTEREST 
7. OB 

7a46 

7.84 
8. S3 
e«6S 
9.01 

9a41 

9.81 
10«S1 
10.61 
il«01 



ACCUM. INTEREST 

6«7 

13.78 

S1.S4 

S9.08 

37. 3S 

45.94 

54.95 

S4«36 

74 a 17 

84.33 
94.98 
106 



CHANGE DATA AND RECOMPUTE? •< 1=S'ES. 0=NO)? 1 



PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

NUMBER OF DEPOSITS /WITHDRAWALS PER YEAR? 4 

AMOUNT OF DEPOSIT /WITHDRAWAL? -150 

START WITH WHAT YEAR? 1 

END PRINTING WITH WHAT YEAR? 1 
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EARNED INTEREST TABLE 
PRINCIPAL * 1000 AT 8 % NOMINAL FOR 1 YEARS 
REGULAR DEPOSIT /WITHDRAWAL *-150 4 TIMES PER YEAR 
EFFECTIVE INTEREST RATE 8»33 % PER YEAR 



YEAR 



BALANCE 



INTEREST 



ACCUM a INTEREST 



870.17 
737.71 
605.58 
464 «7e 



BO oil 
17.54 

I4a87 

ie»14 



E0ol7 
37«71 

5e«58 
64 ■.7S 



CHANGE DATA AND RECOMPUTE? a=YES, 0=NO)? 



END PROGRAM 



PROGRAM LISTING 

10 PRINT "EARNED INTEREST TABLE" 

EO PRINT 

89 REH - STATEMENTS 30 TO 530 REQUEST USER INPUT 
30 PRINT "PRINCIPAL"? - 

40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE "I 

60 INPUT I 

69 REM - CONVERT PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "NUMBER OF DEPOSITS /WITHDRAWALS PER YEAR"^ 

90 INPUT Nl 

99 REM - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZERO 

100 IF NlsO THEN 160 

108 REM - DEPOSITS ARE -ENTERED AS A POSITIVE NUMBER 

109 REM ~ WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER 

110 PRINT "AMOUNT OF DEPOSIT /WITHDRAWAL " ; 
leo INPUT R 

1E9 REM - INTEREST IS COMPOUNDED DAILY 

130 N=360 

139 REM - PRINT AT EACH DEPOSIT /WITHDRAWAL 

140 La=Nl 

150 GOTO eoo 

160 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"? 

170 INPUT H 

180 N1*0 

189 REM «• PRINT FOUR TIMES PER YEAR 

190 LS=4 

HOO PRINT "START WITH WHAT YEAR'^^ 

eiO INPUT X 

aaO PRINT "END PRINTING WITH WHAT YEAR"| 

£30 INPUT Y 

e39 REM - START PRINTING AT THE BEGINNING OF A YEAR 

S40 X=INTCX) 

049 REM - INITIATE RUNNING TOTALS 

£50 BOaP 

£60 11=0 

870 12=0 
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S80 13=0 

E90 K=SS 

300 Pl=4 

310 FOR J0 = 1 TO INT(Y) 4-1 

319 REM - START PRINTING? 

3aO IF JO<X THEN 480 

3E9 REM " TEST FOR END OF PAGE 

330 IF K<55 THEN 470 

339 REM - SPACE TO NEXT PAGE, PRINT HEADINGS (ASSUMED 66 LINES PER PAGE) 

340 FOR K1=K TO 66 
350 PRINT 

360 NEXT Ki 

370 K>6 

380 PRINT " EARNED INTEREST TABLE" 

390 PRINT " PRINCIPAL -^^ ?P; " AT" ; 1*100 ;"% NOMINAL FDR" ? Y? "YEARS 

399 REM - SKIP DEPOSIT /WITHDRAWAL HEADING IF THERE ARE NONE 

400 IF Ni=0 THEN 430 

410 PRINT "REGULAR DEPOSIT /WITHDRAWAL *";R;» ";N1;" TIMES PER YEAR" 

419 REM ~ K COUNTS THE NUMBER OF PRINTED LINES PER PAGE 

4e0 K=K-4-l 

430 PRINT " EFFECTIVE INTEREST RATE" ;FNR ( 100* (( 1 + I/N ) tN-1 ) )J 

"% PER YEAR" 

440 PRINT 

450 PRINT "YEAR" , "BALANCE" , "INTEREST" , "ACCUM .INTEREST" 

459 REM - CALCULATE INTEREST 

460 PRINT 

469 REM - PRINT YEAR NUMBER 

470 PRINT JO. 
4S0 Li=i 

490 NE»1 

500 PS=1 

510 FOR Jl=i TO N 

519 REM - DEPOSIT /WITHDRAW ANY MORE THIS YEAR? 

5E0 IF NE>N1 THEN 560 

5E9 REM ~ TIME TO MAKE DEPOSIT /WITHDRAWAL? 

530 IF NS/N1>J1/N THEN 560 

539 REM - CALCULATE NEW BALANCE 

540 BO=BO-fR 

549 REM - COUNT DEPOSITS /WITHDRAWALS MADE PER YEAR 

550 NS=NE4-1 

560 BE=B0*<1+I/N) 

569 REM - I1=AM0UNT INTEREST WITH EACH COMPOUNDING PERIOD 

570 I1=BS~B0 

579 REM - I3=AMDUNT INTEREST ACCUMULATED BETWEEN POSTING 

580 I3=I3-fIl 

589 REM - IS=TOTAL INTEREST ACCUMULATED TO DATE 

590 lE^IS+Il 

599 REM - ROUND AT INTEREST POSTING TIME 

600 IF Pa/Pi>Jl/N THEN 640 
610 ia=FNR(IE) 

620 Ba=FNR<B£) 

630 Pe=PS-fl 

639 REM - YEAR TO START PRINTING? 

640 IF JO<X THEN 710 

649 REM "- TIME TO PRINT A LINE? 

650 IF Jl/N<Li/LE THEN 710 
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660 Ll=Li4-l 

670 PRINT FNR(BE) ,FNR<I3) ,FNR(IE) 

679 REM - INTEREST POSTED , REINITIALIZE INTEREST ACCUH « BETWEEN POSTINGS 

680 13=0 
690 K=K-4-l 

699 REH - YEAR NUMBER PRINTED WITH FIRST POSTING IN EACH YEAR ONLY 

700 PRINT 
710 BO=Ba 

719 REM - NO MORE LINES TO PRINT IN LAST YEAR? 

7E0 IF J04-J1/H-1>=Y THEN 780 

730 NEXT Jl 

739 REM - START PRINTING? 

740 IF JO<X THEN 770 
750 PRINT 

760 K=K4-1 

770 NEXT JO 

780 PRINT 

789 REM - RESTART OR END PROGRAM? 

790 PRINT "CHANGE DATA AND RECOMPUTE?. <1=YES, 0=N0)"; 
800 INPUT 2 

810 PRINT 

880 IF 2=1 THEN BQ 

SE9 REM - ROUND OFF FUNCTION 

830 DEFFNR(X)=INT<X*100-^.5)/100 

840 END 
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Depreciation Rate 



This program calculates the annual depreciation rate of an investment. You must provide the original price 

of the item, its resale price, and its age in years. 

The depreciation rate is calculated by the following formula: 



depreciation „ -j „ / resale price \ 
rate I original price / 



Example: 

Joan bought her car for $4933.76 and sold it for $2400.00 three years later. What was its actual deprecia- 
tion rate? 

: RUN 
DEPRECIATION RATE 

OklGIilAL PRICE? 4933 «76 

RESALE PRICE? E400 

YEARS? 3 

DEPRECIATION RATE = El .354 % 

HURE DATA (i=YES> 0=NO)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "DEPRECIATION RATE" 

EO PRINT 

30 PRINT "ORIGINAL PRICE"? 

40 INPUT P 

50 PRINT "RESALE PRICE"? 

SO INPUT T 

70 PRINT "YEARS"; 

80 INPUT Y 

89 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT 

90 D=iOO*(i-(T/P)f (1/Y) ) 
99 REM - ROUND OFF, PRINT 

100 PRINT "DEPRECIATION RATE =" ;INT (1000*D+ a5 ) /lOOO ? "%" 

110 PRINT 

119 REM ~ RESTART OR END PROGRAM? 

ISO PRINT "MORE DATA Cl^YES, 0=ND)"; 

130 INPUT X 

140 IF ;x>l THEN SO 

150 END 
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Depreciation Amount 



This program calculates the dollar amount depreciated within a given year for a depreciating investment. 
You must provide the original price of the investment, its depreciation rate, and the year of depreciation. 

The depreciation amount is calculated by the following formula: 

D=p./.{1-/)>'-1 

where: D = depreciation amount 

P *= original price 

/ = depreciation rate 

y = year of depreciation 

Examples: 

Joan bought her car for $4933.76. Her model car depreciates at an average annual rate of 21%. What 
amount has the car depreciated in each of the first three years she has owned it? 

Joan is also concerned about the depreciation of the tape deck in her car. it cost her $155.00 two years ago, 
and has a depreciation rate of 22%. How much will its value decline in year three? 

: RUN 

DEPRECIATION AMOUNT 

ORGINAL PRICE? 4933.76 
DEPRECIATION RATE? SI 

— (ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FDR THIS ITEM) — 

YEAR? 1 

DEPRECIATION = % 1036^09 

YEAR? E 

DEPRECIATION = ^ 818.51 

YEAR? 3 

DEPRECIATION = % 646. 6E 

YEAR? 

MORE DATA <1=YES, 0=NO)? i 

ORGINAL PRICE? 155 
DEPRECIATION RATE? SE 

— CENTER YEAR=0 UJHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM) — 
YEAR? 3 

DEPRECIATION = % BQ .IS 

YEAR? 

MORE DATA (1=YES, 0=NO)? 

END PROGRAM 
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PROGRAH LISTING 

10 PRINT "DEPRECIATION AMOUNT" 

EO PRINT 

30 PRINT "ORGINAL PRICE"; 

40 INPUT P 

50 PRINT "DEPRECIATION RATE"? 

60 INPUT I 

69 REM - CONVERT FROM PERCENT TO DECIMAL 

70 I=I/iOO 

80 PRINT " — (ENTER YEAR=0 UJHEN NO MORE AMOUNTS DESIRED FDR THIS ITEM 

90 PRINT "YEAR"? 

100 INPUT Y 

109 REM - THROUGH CALCULATING FOR THIS ITEM? 

iiO IF Y=0 THEN ISO 

119 REM - CALCULATE DEPRECIATION AMOUNT BY FORMULA 

lEO D=P*I^t<l~I)f (Y-1 ) 

iS9 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRINT "DEPRECIATION = ?"-" ; INT <D*1004- .5 ) /iOO 

140 PRINT 

149 REM " RETURN FOR NEXT YEAR NUMBER 

150 GOTO 90 

159 REM - RESTART OR END PROGRAM? 

160 PRINT "MORE DATA a=YES, 0=ND)"? 
170 INPUT X 

180 IF X=l THEN EO 

190 END 
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Salwage Vaiye 



This program calculates the salvage value of an item at the end of a given year. It is necessary for you to 

provide the age of the item, its original price, and its depreciation rate. 

The salvage value is obtained by the following formula: 

S=P{'\-/)y 

where: S = salvage value 

P = original price 

/ = depreciation rate 

Y = age in years 

Example: 

What is the salvage value of Joan's car if it is three years old, she bought it for $4933.76, and it depreciates 

21 % annually? What would its salvage value be next year? 

Joan's tape deck is 2 years old. What is its value if it cost $155.00 originally and depreciates at a rate of 
22%? 

S RUN 

SALVAGE VALUE 

OklGIi-IAL PRICE? 4933.76 

DEPRECIATION RATE? El 

~~<Ei-}TER VEARS^O WHEN NO HORE VALUES DESIRED FDR THIS ITEM)-- 

YEARS? 3 

VALUE = t^ a43E.54 

YEARS? 4 

VALUE = ? 1921 .7 

YEARS? 

MORE DATA (i=YES.. 0=Na)? 1 

ORIGIi-lAL PRICE? 155 

DEPRECIATION RATE? EE 

--(ENTER VEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)-- 

YEARS? E 
VALUE = * 94«3 

YEARS? 

MORE DATA ( 1 =YES , =N0 ) ? ■ 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "SALVAGE VALUE" 

£0 PRINT 

30 PRINT "ORIGINAL PRICE"? 
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40 INPUT P 

50 PRINT "DEPRECIATION RATE''? 

60 INPUT I 

70 PRINT "—(ENTER YEARS=0 WHEN NO HDRE VALUES DESIRED FOR THIS ITEM 

80 PRINT "YEARS"? 

90 INPUT V 

99 REH - CALCULATE ANOTHER SALVAGE VALUE? 

100 IF Y=0 THEN 140 

108 REH - CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, PRINT 

109 REH - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATI 
ONS 

110 PRINT "VALUk = ^."?INTCiOO*P*Cl-l/100)fY-i-.5)/100 
lEO PRINT 

iE9 REM - RETURN FOR NEXT YEAR NUMBER 

130 GOTO 80 

139 REM - RESTART OR END PROGRAM? 

140 PRINT "MORE DATA Ci=YES, 0=NO)"; 
150 INPUT X 

160 IF X=i THEN EO 

170 END 
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Discount Commercia! Paper 



This program calculates the amount of discount and net cost of a discounted commercial paper. You must 
provide the future value of the paper, the discount rate and the number of days to maturity. 

The formulas used to calculate the discount and cost are as follows: 

D N 
discount = T « ^ — 

100 360 
cost = 7" - discount 

where: T — total future value 
D = discount rate 
N — number of days to maturity 

Example: 

Canning Corporation purchases a $625,000.00 commercial paper due in 60 days at 5.4%. What is the dis- 
count and cost? 

I RUN 

DISCOUNT COHMERCIAL PAPER 

FUTURE VALUE? 625000 

DISCOUNT RATE? 5»4 
DAYS TO MATURITY? 60 
DISCOUNT = ^ 56E5 

COST = * 619375 

HORE DATA a=YES» 0-NO)? 

END PROGRAH 

PROGRAH LISTING 

10 PRINT "DISCOUNT COMMERCIAL PAPER" 

aO PRINT 

ES REM - STATEMENTS 30 TO SO REQUEST USER INPUT 

30 PRINT "FUTURE VALUE"? 

40 INPUT T 

50 PRINT "DISCOUNT RATE"! 

60 INPUT D 

69 REM - CONVERT PERCENT TO DECIMAL 

70 D=D/100 

SO PRINT "DAYS TO MATURITY"? 

90 INPUT N 

99 REM - CALCULATE DISCOUNT, PRINT 

100 Dl=T-*D^N/360 

110 PRINT "DISCOUNT = *";D1 

119 REM - CALCULATE COST, PRINT 

lEO PRINT » COST = *='?T-D1 

1E9 REM - PRINT BLANK LIME TO SEPARATE DATA FROM QUESTION 
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130 PRINT 

139 REH - RESTART OR END PROGRAH? USER INPUT REQUIRED 

140 PRINT "MORE DATA <l=VESv 0-NO)"; 
150 INPUT X 

160 IF X~i THEN EO 

170 END 
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Principal on a Loan 



This program calculates an initial amount borrowed. This amount is dependent upon the interest rate, the 
amount of regular payments, the number of payments per year and the term of the loan. 



The calculation is based on the formula: 



^ . 1. 



{]+///y)N^Yj 

where: P ~ principal 

R — regular payment 

/ = annual interest rate 

N — number of payments per year 

Y — number of years 

Example: 

Susan has agreed to pay $250.00 bimonthly for 3 years to repay a loan with 20% interest. What is the 

amount of the loan? 

Tom can afford to make payments of $180.00 per month to repay a loan. If he is willing to make payments 
for four and a half years and the loan company charges 16% interest, what is the maximum amount Tom can 

borrow? 

I RUN 

PRINCIPAL ON A LOAN 

REGULAR PAYMENT? E50 

TERH IN YEARS? 3 

ANNUAL INTLREST RATE? EO 

NUMBER OF PAYMENTS PER YEAR? 6 

PRINCIPAL ^ ^ 3343.45 

MORE DATA? <1=YES, 0=sNO>? 1 

REGULAR PAYMENT? 180 
TERM IN SHEARS? 4.5 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAYMENTS PER YEAR? 12. 
PRINCIPAL ~ ^ 6897.51 

MORE DATA? a=YES, O^NO)? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "PRINCIPAL ON A LOAN" 

EO PRINT 

E9 REM - STATEMENTS 30 T« t 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 

29 



40 


INPUT 


50 


PRINT 


60 


INPUT 


70 


PRINT 


BO 


INPUT 


90 


PRINT 


100 


INPUT 


108 


REM - 


109 


REM - 


110 


p=R#N^ 


119 


REM - 


ISO 


PRINT 


129 


REM - 


130 


PRINT 


139 


REM - 


140 


PRINT 


150 


INPUT 


160 


IF X== 


170 


Er-iD 



R 

"TERM IN YEARS"; 
Y 

"ANNUAL INTEREST RATE"? 
I 

"NUMBER OF PAYMENTS PER YEAR"? 
N 

CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; 

INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 
p=R#H* a-i/(CI/100) /N4- Dfi N* Y ) ) / < I / 1 00 ) 
ROUND QFh TO NEAREST CENT, PRINT 
"PRINCIPAL ^ *";lNT<P*100+«5)/i00 
PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

RESTART OR END PROGRAM? 

"MORE DATA? (i="VES. 0=ND)"; 
X 
. THEN SO 



OPTION 

In some cases it may be more convenient to enter the term of the loan in years and months rather than just 
years. The program changes necessary are listed following the example below. 

Example: 

What would be the amount of the mortgage if you were paying $75.(X) a month for 1 1 months with 3% in- 
terest? 

SPUN 

PRINCIPAL ON A LOAN 

REGULAR PAYMENT? 75 

TERM IN YEARS, MONTHS? 0,11 

ANNUAL INTEREST RATE? 3 

NUMBER OF PAYMENTS PER YEAR? IE 

PRINCIPAL « * 8 IE « 76 

•MORE DATA? (1=YES> 0=NO)? 

END PROGRAM 

PROGRAM LISTING 

1 REM - OPTION 50-65- 
10 PRINT "PRINCIPAL ON A LOAN" 

e 
e 

40 INPUT R 

50 PRINT "TERM IN YEARS, MONTHS"? 

SO INPUT YOvM 

64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

65 Y=(lE*YO+M)/ia 

70 PRINT "ANNUAL INTEREST RATE"; 

170 END 
30 



Regular Payment ©n a Loan 



This program calculates the amount required as regular payments in order to repay a loan over a specified 
time period. The specifications you must provide are the amount of the principal, the interest rate charged, the 
number of payments to be made per year and the number of years to pay. This program assumes all installment 
payments will be equal. 



The calculation is based on the formula: 

/ • PIN 




where: R — regular payment 

/ = annual interest rate 

P = principal 

N = number of payments per year 

Y - number of years 

Examples: 

What must you pay on a loan of $4000.00 at 8% if payments are to be made quarterly for five years? 

If Michael borrows $6500.00 at 12.5% from Best Rate Savings & Loan to be paid back over a period of 5.5 
years, what would his monthly payments be? 

IRUH 

REGULAR PAYMENT ON A LOAN 

TERM IN YEARS? 5 

PRINCIPAL? 4000 

ANNUAL INTEREST RATE? 8 

NUMBER OF PAS'MENTS PER YEAR? 4 

REGULAR PAYMENT = $ 844,63 

MORE DATA? U=YES, 0=NO)? I 

TERM IN YEARS? 5«5 

PRINCIPAL? 6S00 

ANNUAL INTEREST RATE? IE. 5 

NUMBER OF PAYMENTS PER YEAR? IB 

REGULAR PAYMENT = % 136 « 68 

MORE DATA? <1=YES, 0=NO)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "REGULAR PAYMEN) ON A LOAN" 

SO PRINT 

29 REM " STATEMENTS 30 Ti I 100 REQUEST USER INPUT 
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30 PRINT "TERH IH YEARS"; 

40 INPUT V 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "ANNUAL INTEREST RATE"? 

80 INPUT I 

90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 

100 INPUT N 

108 REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA; 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 

110 Rs( (I/100)^P/N)/a-l/C CI/lOO>/N+l)t<N^Y)) 
119 REM - ROUND OFF TO NEAREST CENT, PRINT 

ISO PRINT "REGULAR PAYMENT « *" ;lNT(R«^100-f «5) /iOO 

ie9 REM - PRINT BLANK LINL TO SEPARATE DATA FROM QUESTION 

130 PRINT 

139 REM - RESTART OR END PROGRAM? 

140 PRINT "MORE DATA? a=YES, 0==ND)"; 
150 INPUT X 

160 IF X^i THEN EO 

170 END 



OPTION 



You may find it more convenient to enter the term of payment in years and months rather than years. The 
program changes necessary are listed following the example below. 

Example: 

Mr. Teny needs $10,CKX).CK) to put down on a new home. Best Rates offers this amount at 14.0% interest 
to be repaid over a period of 1 1 years and 5 months. What would be the amount of regular monthly payments? 

:run 

regular payment on a loan 

term in years, months? 11,5 
principal? 10000 
annual interest rate? 14 
number -of payments per year? ie 
regular payment « ^ 146 » 59 

more data? <1=yes» 0=no)? 

end program 



PROGRAM LISTING 

1 REM - OPTION 30-45 

10 PRINT "REGULAR PAYMENJ ON A LOAN" 

e 
« 
e 

E9 REM - STATEMhNiS 30 Ts! 100 REQUEST USER INPUT 

30 PRINT "TERM IN YEARS, MONTHS"? 

40 INPUT Y0,M 

44 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

45 Y==(lE*Y0+M)/ia 

50 PRINT "PRINCIPAL"; 

@ 
e 

170 END 
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Last Paymerit on a Loan 



This program calculates the amount of the final payment on a loan. This final payment will complete amor- 
tization of a loan at the conclusion of its term. You must provide the amount of the loan, the amount of the regu- 
lar payment, the interest rate charged, the number of payments per year and the term of payment. 

The amount of the last payment is normally different from the amount of the regular payment. The final 
payment will be a "balloon" payment if the final payment is larger than the regular payment. A balloon payment 
is necessary if applying the amount of the regular payment as the last payment leaves a remaining balance due. In 
order to entirely pay off the loan at the end of its term, this remaining balance is added to the amount of the 
regular payment to determine the amount of the last payment. 

On the other hand, the amount of the final payment is sometimes less than the regular payment. If the regu- 
lar payment as the last payment would result in a negative loan balance, then the last payment should be smaller. 
In this case the regular payment is adjusted by the amount of this hypothetical negative balance to determine the 
amount of the last payment. 

amount of _ regular ^ hypothetical balance due on a 
last payment ~ payment loan after N » Y regular payments 

where: N = number of payments per year 
Y = number of years 

Examples: 

Lynn borrowed $60CX).00 at 5% from her father for college expenses. If she pays $1000.00 annually for 
seven years, what will her last payment be? 

Lynn borrows $1 150.00 at 8% interest to be repaid at a rate of $75.00 per month. A year and two months 
later Lynn decides to go to Europe. How much must she pay next month to completely pay off her loan? 

I RUN 

LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? iOOO 
PRINCIPAL? 6000 
TERM IN YEARS? 7 
ANNUAL INTEREST RATE? 5 
NUMBER OF PAYMENTS PER YEAR? 1 
LAST PAYMENT = ^ 1300.59 

MORE DATA? < 1=YES ,0=NO) ? 1 

REGULAR PAYMENT? 75 

PRINCIPAL? 1150 

TERM IN YEARS? 1.17 

ANNUAL INTEREST RATE? 8 

NUMBER OF PAYMENTS PER YEAR? IS 

LAST PAYMENT = * E40»38 

MORE DATA? ( 1=YES ,0=NO ) ? 

END PROGRAM 
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PROGRAH LISTING 

PRINT "LAST PAVHEHT ON A LOAN" 
PRINT 

REH «- STATEHEHTS 30 TO 130 REQUEST USER INPUT 
PRINT "REGULAR PAYMENT"! 
INPUT R 

PRINT •'PRINCIPAL"; 
._ INPUT P 

■^■■■■■'iBa:;^- input:::; v:.:::v:v^^:::/^^^ 

90"*'^'PRINT^ ' "ANNUAL 'I RATE^^ 

100 INPUT I 

109 REH - CONVERT INTEREST FROM PERCENT TO DECIMAL 

110 1=1/100 

laO PRINT "NUMBER OF PAYMENTS PER YEAR"? 

130 INPUT H 

140 BO=P 

149 REM - COMPUTE ALL PAYMENTS. BALANCES THROUGH LAST PAYMENT USING R 

150 FOR Ji«i TO my 

159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT 

160 Il^INTC CB0^I/N)^100+«5)/100 

169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 

170 A=R-li 

179 REM -' BALANCE REMAINING DECREASES WITH EACH PAYMENT 

180 B0=B0-A 
190 NEXT Jl 

199 REM - CALCULATE LAST PAYMENT, ROUND OFF. PRINT 

EGO PRINT '^LAST PAS'MENT = ^" UNTC tR-t-BO )^100+ «5) /lOO 

EiO PRINT 

819 REM - RESTART OR END PROGRAM? 

eeO PRINT "MORE DATA? C1«YES.O=NO) " ; 

E30 INPUT X 

E40 IF X=l THEN EO 

E50 END 



OPTION 

The program above allows the term of payment on the loan to be entered in years only. You may wish to 
enter the term in years and months instead. The program changes necessary are listed following the example. 

Example' 

If you pay $40.(X) a month for 2 years and 3 months on a loan of $1200.00 at 7.5%, what amount will the 
last payment total? 

:RUN 

LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? 40 
PRINCIPAL? ISOO 
TERM IN YEARS AND MONTHS? E,3 
ANNUAL INTEREST RATE? 7a5 
NUMBER OF PAYMENTS PER YEAR? IE 
LAST PAYMENT s ^ £87. 3G 

MORE DATA? Ci«YES.0^NO)? 

END PROGRAM 
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PROGRAH LISTING 

1 REH - OPTION 70-85 

10 PRINT "LAST PAYHENT OH A LOAN" 

® 

SO INPUT P 

; 70 PRINT "TERH IN YEARS AND MONTHS"? 

80 INPUT YO,M 

8^ REM - CALCULATE YEARS FROM YEARS AND MONTHS 

85 Y~aS*YO-*-M>/iE 

90 PRINT "ANNUAL INTEREhT RATE"? 

e 



650 ENB 
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Remaining Balance on a Loan 



This program calculates the balance remaining on a loan after a specified number of payments. It is necess- 
ary for you to provide the amount of the regular payment, the number of payments per year, the amount of the 
principal, the annual interest rate, and the payment number after which to calculate the remaining balance. 

The remaining balance is calculated by the following method: 

remaining _ principal - S'^o'-'nt amortized after 
balance A/ • ( V- 1)+ A// payments 

where: N = number of payments per year 

V = year to calculate remaining balance 
N1 = payment number in year / to calculate remaining balance 

Example: 

Kelly has taken out a loan of $8000.00 at 17.2% interest. His regular payments are $200.00 per month. If he 
has paid through the tenth payment in the fourth year, how much more does Kelly owe on his loan? 

^RUN 

REHAINING BALANCE ON A LOAN 

REGULAR PAYHENT? BQQ 

PRINCIPAL? 8000 

NUMBER -OF PAVHENTS PER YEAR? IB 

ANNUAL INTEREST RATE? 17. E • 

LAST PAYMENT MADE (PAYMENT NO. > YEAR)? 10.4 

REMAINING BALANCE « S 8496^7 

MORE DATA? C1=YES,0=NO)? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "REMAINING BALANCE ON A LOAN" 

SO PRINT 

as REM " STATEMENTS 30 Tt t 130 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 

40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "NUMBER OF PAYMENTS PER YEAR"? 

80 INPUT N 

90 PRINT "ANNUAL INTEREST RATE"; 

100 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/100 

119 REM - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E,.Ni<=N 

ISO PRINT "LAST PAYMENT MADE (PAYMENT NO «, YEAR) 

130 INPUT N1,Y 

139 REM - INITIALIZE REMAINING BALANCE 

140 BO=P 
149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 



gi a 
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150 FOR Jl~i TO N*<Y-i)+hJi 

159 REH - CALCULATE INTEREST PAID WITH EACH PAYMENT 

160 I1=INT< (BO*I/N)*100-8-.5)/iOO 

169 REH - CALCULATE AHOUNl AMORTIZED WITH EACH PAYMENT 

170 A=R-I1 

179 REM ~ CALCULATE REMAINING BALANCE ON PRINCIPAL 

180 BO=BO~A 
190 NEXT Jl 

199 REH ~ ROUND OFF, PRINT 

EGO PRINT "REMAINING BALANCE = $" ;INT(B0*100+ »5 ) /lOO 

EiO PRINT 

El 9 REM •- RESTART OR END ^^ROGRAM? 

EEO PRINT "MORE DATA? <1=YES.O=NO) 

E30 INPUT X 

S40 IF X=l THEN EO 

E50 END 



St m 



OPTION 



You may wish to specify the number of the last payment made as the total payment number rather than the 
payment number within a certain year. For instance, when 4 payments are made per year, payment 3 of year 3 
would be entered as payment number 11. The program changes necessary are listed following the example 
below. 

Example: 

John made ten quarterly payments of $550.(X) on a loan of $6000.03 with 16% interest. What is his remain- 
ing balance? 

SRUN 

REMAINING BALANCE ON A LOAN 

REGULAR PAYMENT? 550 
PRINCIPAL? 6000 

NUMBER OF PAYMENTS PER YEAR? 4 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAYMENTS MADE? 10 

REMAINING BALANCE = * SE78.09 

MORE DATA? <1=YES .0=NO ) ? 
END PROGRAM 

PROGRAM LISTING 

1 REM - OPTION 119-130, 150 
10 PRINT "REMAINING BALANCE ON A LOAN" 

o 

9 

110 1=1/100 

119 REM - ENTER THE TOTAL NUMBER OF PAYMENTS MADE TO BATE 

ISO PRINT "NUMBER OF PAYMENTS MADE"? 

130 INPUT Ni 

139 REM - INITIALIZE REMAINING BALANCE 

140 BO=P 

149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 

150 FOR Jl=l TO Ni 

159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 



E50 EHD 
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Term of a Loan 



This program calculates the period of time needed to repay a loan. You must specify the amount of the 
loan, the amount of the payments, the number of payments to be made per year and the annual interest rate on 
the loan. All payments are assumed to be equal. 

The term of payment is derived from the following formula: 





1 
N 



where: Y = term of payment in years 

P = principal 

/ = annual interest rate 

N = number of payments per year 

R = amount of payments 

Examples: 

What would be the duration of payment on a mortgage of $20,CKX).00 at 18% when payments of $1000.00 

are to be made quarterly? 

Sally takes out a loan for $12,669.00 at 16.8%. Her payments are $512.34 every two months. What is the 

term of her loan? 

:ruh 

TERM OF A LOAN 

REGULAR PAYMENT? 1000 
PRINCIPAL? EOOOO 
ANNUAL INTEREST RATE? 18 
NUMBER OF PAYMENTS PER YEAR? 4 
TERM = 13.1 YEARS 

MORE DATA? a=YES, 0=NO>? 1 

REGULAR PAYMENT? 51E.34 
PRINCIPAL? 1E669 
ANNUAL INTEREST RATE? 16.8 
NUMBER OF PAYMENTS PER YEAR? 6 
TERM =7.1 YEARS 

MORE DATA? (1=S'ES, 0=NO)? 

END PROGRAM 
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PROGRAH LISTING 

10 PRINT "TERH OF A LOAN" 

EO PRINT 

E9 REH - STATEHENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENl"? 

40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "ANNUAL INTEREST RATE"; 

80 INPUT I 

90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 

100 INPUT N 

108 REM - CALCULATE TERM TN YEARS BY FORMULA? 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION 

110 Y=-(LOG(1-<P*<I/100) )/<N#R) ) / (LOG < 1+I/100/N)*N) ) 
119 REM ~ ROUND OFF TO NEAREST TENTH, PRINT 

lEO PRINT "TERM =" ; INT<Y*10-f .5 ) /lO ; "YEARS" 

130 PRINT 

139 REM - RESTART OR END hROGRAM? 

140 PRINT "MORE DATA? <1=YES, 0=ND)"; 
150 INPUT X 

160 IF X=l THEN EO 

170 END 



OPTION 

!t is possible to calculate the term of payment in years and months rather than just years. To do this, make 
the program changes listed following the example below. 

Example:; 

Dick took out a loan for $8000.00 at 7.5%. Regular payments of $150.00 are to be made monthly. How long 
will it take to pay off the loan? 

: RUN 

TERM OF A LOAN 

REGULAR PAYMENT? 150 
PRINCIPAL? 8000 
ANNUAL INTEREST RATE? 7^5 
NUMBER OF PAYMENTS PER YEAR? IS 
TERM = 5 YEARS, 5 MONTHS 

MORE DATA? (1=S'ES, 0==NO)? 

END PROGRAM 
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PROGRAH LISTING 

1 REH - OPTION il4-iaO 

10 PRINT "TERM OF A LOAN" 

9 

Q 
& 

110 V=-<LOGa-(P*CI/iOO) )/CN*R) ) / CLOG a+I/100/N)^N) ) 

114 REM - CALCULATE YEARS AND HONTHS FROM YEARS 

115 M==INT(Y*ia4-,5) 

116 YO=sINT<M/ia) 

117 M=^M— /o«-ia 

119 REM - PRINT RESULTS 

lEO PRINT "TERM ^» ;Y0 ? ''YEARS, " ?M; "MONTHS" 

130 PRINT 

® 

170 END 
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Annual interest Bate on a Loan 



This program calculates the rate at which interest is charged on a loan. To determine this rate you must 
enter the amount of the loan, the amount of the regular payment, the number of payments per year, and the term 
of the loan. 

The annual interest rate is computed by the following method of approximation: 

1) Guess an interest rate 
Initialize last guess to 

2) Compute regular payment using guessed rate: 

/ » P/N 

R, = — — 

Round off R ^ 
31 If computed payment = actual payment, then current guess = approximate interest rate 
4) Otherwise, save current guess and calculate a new guess 



^2 = 


/ 




i + \i R^<R 


/ = 


/±| 


ii- 


/a)/2| { 

( - if /? y > ^ 


5) Go to 2 








where: 


/ 


= 


interest rate 




^'2 


= 


previous interest rate 




R 


= 


input regular payment 




R, 


= 


computed regular payment 




P 


= 


principal 




N 


= 


number of payments per year 




Y 


= 


number of years 



Examples: 

Cindy bon-owed $3CX)0.(X} from her friend George with an agreement to pay back $'4(X3.(X) quarterly for 2 

years. At what interest rate is she being charged? 

To pay back a loan of $10,000.CX) John contracted to make monthly payments of $120.00 for 9.5 years. At 

what rate is interest being charged? 

^RUN 

ANNUAL INTEREST RATE ON A LOAN 

REGULAR PAYHENT? 400 

TERH IN YEARS? e 

PRINCIPAL? 3000 

NUHBER OF PAYHENTS PER YEAR? 4 

Ar-t4UAL -INTEREST RATE « 5^887 % 

MORE DATA? U^YES. 0=N0)? 1 

REGULAR PAYHENT? lEO 

TERH IN YEARS? 9.5 

PRINCIPAL? 10000 

NUHBER OF PAYHENTS PER YEAR? IE 

ANNUAL -INTEREST RATE * 6.933 % 

MORE DATA? C1=YES, 0=N0)? 

END PROGRAM 
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PROGRAM LISTING 



10 

eo 
as 

30 
40 

BO 
60 
70 
80 
90 
100 
109 
110 
119 
lEO 
1E9 
130 
139 
140 
149 
150 
159 
160 
168 
169 
170 
180 
189 
190 
199 
EOO 
S09 
EiO 
E19 

sso 

SS9 
S30 
E40 
S50 
S59 
S60 
S70 
SSO 
E90 



"Ar AL INTEREST RATE DM A LOAN" 

STATE<IENTS 30 TO 100 REQUEST USER INPUT 

"REGULAR PAYMENT"; 

R 

"TERM IN YEARS''^ 

Y 

"PRINCIPAL"; 

P 

"NUMBER OF PAYMENTS PER YEAR"; 
N 
GUESS AN INTEREST RATE C10%) TO INITIATE 

ia=LAST GUESS OR ESTIMATE (START WITH 0) 



PRINT 

PRINT 

REM - 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

REM - GUESS AN INTEREST RATE C10%) TO INITIATE TESTING 

1 = 10 

REM - 

ie=o 

REM - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE 

Rl~(I^P/N)/(l-i/C (I/N-M )t(N*Y) )) 

REM - ROUND OFF -TO NEAREST CENT 

Rl=INTCRi^l00+,.5)/100 

REM - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE 

I3=ABS<I--IS)/a 

REM - SAVE THIS GUESS 

IS=I 

REM - COMPARE COMPUTED PAYMENT CRD TO INPUT PAYMENT CR); 

REM - IF THEY'RE EQUAL, LAST RATE GUESSED = APPROXIMATE INT. RATE 

IF R1=R THEN SSO 

IF R1>R THEN SIO 

REM - RKR, RATE MUST BE HIGHER THAN LAST GUESS 

1=1+13 

REM - RETEST WITH NEW GUESS 

GOTO 130 

REM - R1>R, RATE MUST BE LOWER THAN LAST GUESS 

1=1-13 

REM - RETEST WITH NEW GUESS 

GOTO 130 

REM - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF. PRINT 

!==( CINT( (I*1000)*100+.5 ) )/100)/1000 

PRINT 

PRINT 

REM - 

PRINT 

INPUT 

IF X=J 

END 



"ANNUAL INTEREST RATE ="?I^100;"%' 

RESTART OR END PROGRAM? 
"MORE DATA? (1»YES. 0=ND)"; 
X 

THEN SO 
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OPTION 

The above listing allows the term of the loan to be entered In years only. You may wish to enter the term in 
years and months rather than years. The program changes necessary are listed following the example below. 

Example: 

If Connie pays $100.00 per month for 1 1 years and 7 months on a $10,000.(X) loan, what is the annual in- 
terest rate on the loan? 

I RUN 

ANNUAL INTEREST RATE ON A LOAN 

REGULAR PAYMENT? 100 

TERM IN YEARS, MONTHS? 11 v7 

PRINCIPAL? 10000 

NUMBER €F PAYMENTS PER YEAR? IE 

ANNUAL INTEREST RATE - 6»00E % 

MORE DATA? Ci=YES, 0=NO)? 

END PROGRAM 

PROGRAM LISTING 

I REM - OPTION 50-65 
10 PRINT "ANNUAL INTEREST RATE ON A. LOAN" 

a 

40 INPUT R 

50 PRINT "TERM IN YEARS, MONTHS"? 

60 INPUT YO,H 

64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

65 Y»<ia*YO-^M)/ia 

70 PRINT "PRINCIPAL"; 

t, 

ESQ END 
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Mortgage Ainortization Table 



This program calculates and prints a loan repayment schedule. This schedule provides the following out- 
puts: 

1) Payment number 

21 Amount of each payment paid as interest 

3) Amount of the loan amortized with each payment 

4) Balance remaining on the principal at the time of each payment 

5) Accumulated interest paid at the time of each payment 

6) Amount of the last payment 

In addition, the yearly totals of interest paid and amount amortized are tabulated and printed. 

To use this program you must supply the amount of the regular payment, the term of payment, the number 

of payments per year, the amount of the principal and the annual interest rate. 

The schedule is calculated in the following manner: 

1) Payment number = payment number within each year 

2) Amount of each payment paid as interest = remaining balance « UN 

where: / = annua! interest rate 

N = number of payments per year 

3) Amount amortized with each payment = /? - / 

where: R = amount of regular payment 

/ = amount of each payment paid as interest 

4) Balance remaining =P - S>4 

where: P = principal 

S ^ = sum of amounts amortized with each payment to date 

5) Accumulated interest == S / 

where: S / = sum of amounts of each payment paid as interest to date 

6) Amount of last payment =/?^-(P-/?-/V«'V) 

where: R = regular payment 

P = principal 

A/ = number of payments per year 

Y - number of years 

Example: 

David needs $2100.(X) to pay off some debts. His sister offers him the money at 6% interest. With pay- 
ments of $75.00 monthly for 2y2 years, what is David's repayment schedule? 

:RUN 

HORTGAGE AMORTIZATION TABLE 

REGULAR PAYMENT? 75 

TERM IN YEARS? e.5 

PRINCIPAL? EiOO 

ANNUAL INThREST RATE? 6 

NUMBER OF PAYMENTS PER YEAR? IS 

START PRINTING WITH WHAT YEAR? i 
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HORTGAGE AriORTIZATIOM TABLE 
PRINCIPAL ^' EiOO AT 5 % FOR E»5 YEARS 

REGULAR PAYMENT = * 75 



NO. 

1 
£ 
3 

5 

G 

7 

6 

9 

10 

11 

la 



1 

E 
3 

S 

6 
7 
8 

S 
10 

11 

IE 



INTEREST 
10.5 
10.18 
9.85 
9.53 
9. a 
8,87 
8.54 
S.Ei 
7„87 

7.54 

7.E 

6.86 



YR. i 104.35 



6.58 
6.18 
5.84 

5.49 
5,14 

4.79 
4„44 

4.09 
3.73 
3.38 

3.0E 
E.66 



YR. a 55. EB 



1 


S.3 


s 


1.93 


3 


1.57 


4 


l.E 


5 


.83 


G 


.46 



AMORTIZED 
64.5 
64. SS 
65.15 
65.47 
65.8 
66.13 
66.46 
66.79 
67.13 
67.46 
67.8 
68.14 

795.65 

68.48 

68. 8E 
69.16 
69.51 
69.86 
70. El 
70.56 
70.91 
71. E7 
71. 6E 
71.98 
7E.34 

844. 7S 

7S.7 

73,07 

73.43 

73.8 

74.17 

9E.46 



BALANCE 
S035.5 
1970.68 
1905,53 
1840.06 
1774.S6 
1708.13 
1641.67 
1574.88 
1507.75 
1440. S9 
i37S.49 
1304 a35 



iS35.87 
1167«05 
1097.89 

10S8«38 
958. 5E 
888.31 
817.75 

746.84 
675.57 
603.95 
531.97 
459^63 



386,93 
313.86 
£40.43 

166.63 

9e«46 





ACCUM INTEREST 
10.5 
SO. 68 
30«53 
40.06 
49«S6 
58 = 13 
66«67 
74.88 
8S.75 
90aE9 
97.49 
104.35 



110.87 
117«05 

lSEaS9 

1S8.3S 

133. 5S 
138.31 
i4S.75 
146«84 

150.57 
153.95 
156.97 
159.63 



1S1«93 
163.86 
165 «43 
166.63 
167 e45 
167. 9S 



LAST PAYMENT 



* 9S»9E 



YR 



8.89 



459 . 63 



CHANGE DATA AND RECOMPUTE? <1=YES,- 0==NO)? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "MORTGAGE AMORTIZATION TABLE" 

EO PRINT 

E9 REM - STATEMENTS 30 TO 150 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENl " ? 

40 INPUT R 



45 



50 PRINT "TERM IN YEARS"? 

€0 INPUT Y 

70 PRINT "PRINCIPAL"? 

80 INPUT P 

90 PRINT "ANNUAL INTEREST RATE"! 

100 INPUT I 

109 REH - CONVERT FROH PEt^CENT TO DECIHAL 

110 1=1/100 

ISO PRINT "NUHBER OF PAYMENTS PER YEAR"? 

130 INPUT N 

140 PRINT "START PRINTING WITH WHAT YEAR"? 

150 INPUT X 

159 REM " START PRINTING AT BEGINNING OF A YEAR 

160 X^INTCX) 

169 REM - INITIALIZE VARIABLES 

170 C1«0 
180 IE=0 
190 13=0 

aoo JO=o 

eiO Ni=N 

EOO K=66 

E30 BO=P 

040 A1=0 

E50 AE=0 

E59 REM - TERM LESS THAN UNE YEAR? 

S60 IF INT<Y)>«1 THEN S70 

E61 REM - ADJUST VARIABLE^ TO PRINT A PARTIAL YEAR 

S6S N1=C(Y-INT<Y) >*1E)/1E*N 

S63 J0=J0-il 

E64 GOTO E80 

E69 REM - LOOP FOR EACH YEAR 

870 FOR J0=1 TO INT<Y) 

579 REM - START PRINTING? 

580 IF JO<X THEN 410 

S89 REM - NEED TO START NhXT PAGE? 

E90 IF K4-N4-3<58 THEN 400 

S99 REM - SPACE TO TOP OF NEXT PAGE (ASSUME 66 LINES PER PAGE) 

300 FOR K1=K TO 66 

310 PRINT 

3E0 NEXT Kl 

330 PRINT 

339 REM - PRINT PAGE HEADINGS 

340 PRINT " MORTGAGE AMORTIZATION TABLE" 

350 PRINT " PRINCIPAL t>"?P?" AT" ?I*i00? "% F0R"|Y? "YEARS" 

3G0 PRINT » REGULAR PAYMENT = ^";R 

370 PRINT 

3S0 PRINT "NO . " ; "INTEi^EST" , "AMORTIZED" , "BALANCE" , "ACCUM INTEREST" 

389 REM - COUNT LINES PRINTED ON EACH PAGE IN K 

390 K=7 
400 K=KH-l+3 

410 FOR Jl=l TO Nl 

419 REM - CALCULATE INTEREST PAID THIS PAYMENT, 

4E0 I1=INT( <B0*I/N>*1004 »s>/100 

4S9 REM - COUNT NUMBER OF PAYMENTS MADE SO FAR 

430 Cl=Ci-fi 

439 REM - CALCULATE AMOUNT AMORTIZED THIS PAYMENT 

440 A=R-"I1 



ROUND OFF 
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449 REH - SUM AMOUNT AMORTIZED TO DATE 

450 Ai=Aj.4A 

459 REM - CALCULATE BALANCE DUE 

460 BO=P-Ai 

468 REM - LAST PAYMENT? IF YES, CALCULATE AMOUNT SO THAT THE 

4b9 REM - BALANCE DUE EQUALS ^.00 = 00 AFTER THIS PAYMENT 

470 IF CiON^Y THEN 520 

480 R=R+BO 

490 A=A-s-B0 

bOO Ai=Ai-iB0 

510 B0=0 

519 REM - SUM INTEREST PAID TO DATE 

5E0 ia=ia+ii 

BE9 REM - SUM INTEREST PAID THIS YEAR 

530 13=134-11 

539 REM ~ SUM AMOUNT AMORTIZED THIS YEAR 

540 AS=AE-4-A 

549 REM - STARTkD PRINTING? IF YES, PRINT COMPUTED VALUES IN TABLE 

550 IF JO<X THEN 570 

560 PRINT Jl|» ";IivA,BO.ia 

570 NEXT Jl 

579 REM " LAST PAYMENT? IF YES, ROUND OFF, PRINT 

580 IF ClON^tY THEN 600 

IIa ppm^"^ e^AOT^r. «h^^"^ PAYMENT = *" ? (INT (R^lOO-*- .5 ) ) /lOO 

loo irjo<x ""^hIn IIT''^' '" ^^^' ^^'^^^ ^^^^^^ "^°^^^^ 

610 PRINT 

6E0 PRINT "YR."; JO as, AS 

630 PRINT 

639 REM - COMPLETED TERM? 

640 IF J0>Y THEN 7a0 

649 REM - REINITIALIZE YEARLY VARIABLES 

650 13=0 
660 AE=0 
670 NEXT JO 

679 REM - HEED TO PRINT A PARTIAL YEAR'^ 

680 IF YOJO THEN E6E 
7E0 PRINT 

7E9 REM - RESTART OR END PROGRAM? 

730 PRINT ^CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)"; 

750 IF Z=l THEN EO 

760 END 



OPTION 



You may wish to enter the term of payment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

If you took out a loan for $700.00 from a friend at 9% interest and were to pay $1CX).CX) per month for 8 
months, what would your repayment schedule be? 
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: RUN 

H0RT5AGE AH0RTI2ATI0N TABLE 

REGULAR PAYMENT? 100 

TERM IN YEARS V MONTHS? 0,8 

PRINCIPAL? 700 

ANNUAL INTEREST RATE? 9 

NUMBER OF PAYMENTS PER YEAR? IS 

START PRINTING WITH WHAT YEAR? i 



PRINCIPAL t' 700 



MORTGAGE AMORTIZATION TABLE 
AT 9 % FOR YEARS B MONTHS 
REGULAR PAS'MENT ~ * 100 



NO. 


INTEREST 


AMORTIZED 


BALANCE 


ACCUM INTEREST 


1 


5.E5 




94.75 




605 «a5 


5«S5 


a 


4,54 




95.46 




509.79 


9.79 


3 


3»8e 




96.18 




413^61 


13.61 


4. 


3.1 




96.9 




315.71 


16a71 


5 


E.38 




97»6E 




S19.09 


19«09 


G 


1=64 




98.36 




120.73 


E0«73 


7 


.91 




99.09 




El»64 


El. 64 


8 


«16 




01.64 







S1»S 




LAST 


PAYMENT ~ $ 


ai»8 






YR. 


1 Bi.8 




700 









CHANGE DATA AND RECOMPUTE? <i~YES,- 0=NO)? 
END PROGRAM 

PROGRAM LISTING 

1 REM -■ OPTION 50-65,350 
10 PRINT "MORTGAGE AMORTIZATION TABLE" 

40 INPUT R 

50 PRINT "TERM IN YEARS > MONTHS"; 

60 INPUT YO,M 

64 REM - CONVERT YEARS AND MONTHS TO YEARS 

65 Y=(1S*Y0+M)/1S 

70 PRINT "PRINCIPAL"; 

o 

340 PRINT " MORTGAGE AMORTIZATION TABLE" 

350 PRINT " PRINCIPAL ^»;P;" AT";I*100;"% FOR" lYO; "YEARS" ;M; "MONT 

HS" 

360 PRINT " REGULAR PAYMENT « $";R 

o 
& 

760 END 
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Greatest Common Denomioator 



This program calculates the greatest common denominator of two integers. It is based on the Euclidean 
algorithm for finding the GCD: 

1) Enter >4, 5 

A = absolute value of A 
B = absolute value of B 

2) Calculate R -A- B - (integer of {A/B )) 

3) Is /? = 0?. If yes, the GCD = B 

!f no, go to step 4 

4) A=B 
B=R 

5) Go to step 2 

Example: 

Find the greatest common denominator of 50 and 18, 115 and 150. 

IRUH 

GREATEST COMMON DENOMINATOR 

< ENTER 0,0 TO END PROGRAM) 
ENTER TWO NUMBERS? 50,18 

GaC.D: e 

ENTER TlAJO NUMBERS? 115,150 
G.CaD: 5 

ENTER TUJO NUMBERS? 0,0 

END PROGRAM 



PROGRAM LISTING 



10 


PRINT "GREATEST COMMON DENOMINATOR" 


EO 


PRINT 


30 


PRINT "(ENTER 0,0 TO EHB PROGRAM)" 


40 


PRINT "ENTER TWO NUMBERS"; 


50 


INPUT A,B 


59 


REM - END PROGRAM? 


60 


IF AOO THEN 90 


70 


IF BOO THEN 90 


80 


GOTO 190 


89 


REM - CALCULATE GCD ACCORDING TO EUCLIDEAN ALGORITHM 


90 


A=ABS<A) 


100 


B=ABS<B) 


110 


R=A~B*INT(A/B) 


lEO 


IF R=0 THEN 160 


130 


A=B 


140 


B=R 



PRINT RESULT 
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150 GOTO 110 

160 PRINT "GX.D^'^lB 

169 REM - PRINT BLANK LINE TO SEPARATE SETS OF DATA 

170 PRINT 

179 REM - RESTART PROGRAM 

180 GOTO 40 
190 END 
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Prime Factors of Integers 



This program lists the prime factors of an integer. St will not test for the integer 0. 

Examples: 

What are the prime factors of -49? 

Factor 92 into primes. 

:RUN 

PRIHE FACTORS OF INTEGERS 

CENTER TO END PROGRAH) 

NUMBER? -49 

~i 

7 t S 
NUHBER? 98 
i 

ate 

NUMBER? 
END PROGRAM 

PROGRAM LISTING 

10 PRINT "PRIME FACTORS OF INTEGERS" 

EO PRINT 

30 PRINT "CENTER TO END PROGRAM)'^ 

40 PRINT "NUMBER"; 

50 INPUT Z 

59 REM - END PROGRAM? 

60 IF 2=0 THEN £00 

69 REM - THE SIGN OF THE NUMBER IS ALWAYS A FACTOR 

70 PRINT SGN(Z) 

79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS 

80 2=ABSCZ) 

88 REM - LOOP TO TEST ALL INTEGERS CE THROUGH Z) AS PRIME FACTORS 

89 REM - INTEGERS SQR(Z) THRU Z SaIILL HAVE NO NEW FACTORS 

90 FOR I=S TO SQR(Z) 
100 S=0 

110 IF Z/IOINTCZ/I) THEN 150 

ISO 2=Z/I 

130 S=S-i-l 

140 GOTO 110 

149 REM - FIND A PRIME FACTOR? IF YESt PRINT 

150 IF S=0 THEN 170 

159 REM - PRINT FACTORS WITH EXPONENTS; IfS = I TO THE S POWER 

160 PRINT i;"f";s 

170 NEXT I 

180 PRINT 

189 REM - RESTART PROGRAM 

190 GOTO 40 
aOO END 
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Area of a Polygon 



This program calculates the area of a polygon. You must supply the x - and y -coordinates of all vertices. 
Coordinates must be entered in order of successive vertices. 

The formula used to calculate the area is: 

Area -{x ^^- x ^Ay ^-y ^'r{K ^i,^ x ^Ay 2-y 3 ) + • • -U^ + x ,) » {/;,- K ,) 12 
where n =the number of vertices. 

The number of vertices you may enter is currently limited to 24. You may increase or decrease this limit by 
altering statement 30 according to the following scheme: 

30 DIM X(n+ /), ¥(;?+ /) 



Example: 

Approximate the area of Lake Boyer. 



10 












M 






\ 
































m 


M 


^ 


?<^ 








8 








<i 


A ' 






ii 












\. 








v^ 


^ 


m 














HI 






1 






6 












.AK 


EB( 


DYE 










/ 
















;.:•; L 


H ,.:■ 






; 


/ 






A t 


1 K- 


























L 




} — 






i| 






















■"***% 


^ 


H 


2 








m 


















: 




:'■ '■' 










\% 


'^i^ 


















■i 




__ 












^ 


&i 


«^ 


Mi 


s^ 


i^ 


^ 


^ 


/o 



2 4 6 8 10 12 14 

miles 



I RUN 

AREA OF A POLYGON 

NUMBER OF VERTICES (ENTER Ti"! END PROGRAM)? 14 

COORDINATES OF VERTEX 1 ? 0,4 

VERTEX a ? i .7 

VERTEX 3 ? 4,8 

VERTEX 4 ? 5,10 

VERTEX 5 ? 7,11 

VERTEX 6 ? 9,10 

VERTEX 7 ? IE, 9 
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VERTEX 8 ? 14vB 

VERTEX 9 ? 13.4 

VERTEX iO ? 15,4 

VERTEX 11 ?-15,l 

VERTEX la ? 13,0 

VERTEX 13 ?-5,i 

VERTEX 14 ? 4, a 
AREA =108 

NUMBER OF VERTICES (ENTER TO END PROGRAM)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "AREA OF A POLYGON" 

EO PRINT 

as REM - COORDINATE ARRAYS SHOULD BE SET TO < NUMBER OF VERTICES +1 ) 

30 DIM XiBS) >V<E5) 

40 PRINT "NUMBER OF VERTICES (ENTER TO END PROGRAM)"; 

50 INPUT N 

59 REM - END PROGRAM? 

60 IF N=0 THEN S30 

59 REM - LOOP TO ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES 

70 FOR 1=1 TO N 

80 IF I>1 THEN 110 

90 PRINT "COORDINATES OF VERTEX" a? 

100 GOTO lEO 

110 PRINT " VERTEX"?!; 

lEO INPUT X(I> ,Y(I) 

130 NEXT I 

139 REM - FIRST VERTEX SERVES AS LAST VERTEX 

140 X(N4i)=X(i) 
150 Y<Ni-l)=Y(i) 
160 A=0 

169 REM - CALCULATE AREA, PRINT 

170 FOR 1=1 TO N 

ISO A=A4-(X(I)+X (1-4-1) )#(Y(I)~Y(H-1) ) 

190 NEXT I 

EOO PRINT "AREA =";ABS(A)/E 

ElO PRINT 

El 9 REM - RESTART PROGRAM 

EEO GOTO 40 

E30 END 
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Parts of a Triangle 



This program calculates three unknown parts of a triangle when three parts are given. At least one part 
given must be the length of a side. There are five possibilities for data entry: 

1) Angle, side, angle 

2) Side, angle, side 

3) Angle, angle, side 

4) Side, side, angle 

5) Side, side, side 

Data must be entered in the order it appears in a triangle, either clockwise or counterclockwise. 

Example: 

The base of a triangle measures 14 inches. The base angles measure .45 and 2.1 radians. What are the 
measurements of the triangle? 




:ruh 

PARTS OF A TRIANGLE 

PROBLEH TYPES^ l^ASA ,S=SAS.3=AAS,4=SSA,5=SSS,6=END PROGRAH 

ENTER PROBLEH TYPE? 1 

ENTER ANGLE, SIDE, ANGLE? «45a4>aa 

SIDE 1 = 10.919 

OPPOSITE ANGLE= ^45 RADIANS 

SIDE E s ei«67 

OPPOSITE ANGLE* E.l RADIANS 

SIDE 3 = 14 

OPPOSITE ANGLES .595 RADIANS 

ENTER PROBLEH TYPE? 6 

END PROGRAH 
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PROGRAM LISTING 

10 PRINT "PARTS OF A TRIANGLE" 

SO PRINT 

30 DIM A(3) ,S(3) 

31 REM - SET VALUE OF PI 
40 P=3«i4159E7 

48 REM - ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS 

49 REM - OF THE TRIANGLE WHERE A=ANGLE, S=LENGTH OF SIDE 

50 PRINT "PROBLEM TYPES? 1=ASA,H=SAS,3=AAS,4=SSA,5=SSS,5=END PROGRAM 

60 PRINT "ENTER PROBLEM TYPE"? 

70 INPUT X 

79 REM » DIRECT PROGRAM TO PROPER CALCULATIONS 

80 IF X=6 THEN 560 
90 IF X=5 THEN 390 

100 IF X=4 THEN 300 

110 IF X=3 THEN E60 

ISO IF X=a THEN 190 

130 PRINT "ENTER ANGLE ^ SIDE, ANGLE " ? 

140 INPUT Ad) »S(3) ,A<e) 

150 A<3)«P-A(1)~A<E) 

160 S(1)«S(3)*SIN(A(1 ) )/SIN(A<3) ) 

170 S<E)=S<3>-»SIN(A(a))/SIN<A<3)) 

180 GOTO 440 

190 PRINT "ENTER SIDE , ANGLE , SIDE" ? 

EOO INPUT S<3) ,A<i) ,3(8) 

ElO S(i)=SQR<S(3)tE+S<E)tS-E*S<3)*S<S)*C0S(A(i)) ) 

aeo A(E)=siN(A(i) )/s(i)*s(a) 

E30 A(E>=ARCSIN(A<E) ) 

340 A(3)=P-A(l)~A<a) 

E50 GOTO 440 

360 PRINT "ENTER ANGLE , ANGLE , SIDE" ? 

E70 INPUT A<3) ,A<S) ,S<3) 

aSO Ad )=P-A<a)-A<3) 

E90 GOTO 160 

300 PRINT "ENTER SIDE , SIDE -.ANGLE" ? 

310 INPUT Sd),S(a),Ad) 

3E0 TsS(E)*SIN(Ad ) ) 

330 IFS<1)<T THEN 5E0 

340 S(3)=SQR(S<E)fa-Tfa) 

350 IF Sd)<=T THEN 380 

360 Y=SQR ( S d ) f a-T ta ) 

370 S(3)=S(3)4-Y 

380 GOTO aeo 

390 PRINT "ENTER SIDE , SIDE , SIDE" ? 

400 INPUT Sd) >S<a) ,S(3) 

410 A d > a (S (E ) tS+S (3 > tE-S < 1 > tS ) /E/S (S ) /S (3 ) 

4aO A < 1 ) sARCCOS ( A d ) > 

430 GOTO EEO 

440 PRINT 

449 RE^ « PRINT RESULTS 

450 FOR 1=1 TO 3 

459 REM - THE ANGLE OF A TRIANGLE CANNOT BE LESS THAN ZERO 

460 IF AdXO THEN 5E0 

470 PRINT "SIDE";II" = "|INT<Sd)*10004-,5)/1000 

480 PRINT "OPPOSITE ANGLE-" ? INT (A (1)1^1000+ •S ) /lOOO ; "RADIANS" 
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490 


NEXT I 


500 


PRINT 


510 


GOTO 60 


5S0 


PRINT 


530 


PRINT "NO SOLUTION^" 


540 


PRINT 


550 


GOTO 60 


560 


END 



OPTION 

It may be more convenient for you to work with angles in degrees rather than radians. The program 
changes necessary are listed following the examples below. 

Examples: 

A square measures 8.76" x 8.76". What is the length of its diagonal? 

8.76" 




The ladder of a slide measures 10', the slide 14', and it covers 13' of ground from base of ladder to tip of 
slide. How steep is the slide? 




%RUH 

PARTS OF A TRIANGLE 

PROBLEM TYPES: 1=ASA,S=SAS,3=AAS ,4=SSA ,5=SSS,6=END PROGRAM 

ENTER PROBLEH TYPE? E 

ENTER SIDE, ANGLE, SIDE? 8.76,90,8.76 

SIDE i = ia.389 

OPPOSITE ANGLE= 90 DEGREES 

SIDE a = e«76 

OPPOSITE ANGLES 45 DEGREES 

SIDE 3 = 8.76 

OPPOSITE ANGLE- 45 DEGREES 
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ENTER PROBLEM TYPE? 5 

ENTER SIDE, SIDE. SIDE? 10,13,14 

SIDE 1 = 10 

OPPOSITE ANGLE= 43ea79 DEGREES 

SIDE e = 13 

OPPOSITE ANGLE= 63.0E7 DEGREES 

SIDE 3 = 14 

OPPOSITE ANGLE= 73.694 DEGREES 

ENTER PROBLEM TYPE? 6 

END PROGRAM 



PROGRAM LISTING 

i REM - OPTION 44-45a45-146,S05.S75"S76,305,480 
10 PRINT "PARTS OF A TRIANGLE" 

40 P=3. 1415907 

44 REM -- SET CONVERSION FACTOR FDR CONVERTING DEGREES TO RADIANS 

45 C=.017453E9a7 

48 REM - ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS 

e 
e 

140 INPUT A<1) ,S(3) ,A(e) 

145 A<1)=A<1)*C 

146 A(E)~A<E)*C 

150 A<3)=P-ACl)-ACa) 

& 

@ 
® 

aOO INPUT S<3) >A(1) ,S(a) 

ao5 Aa)=A(i)*c 

El S < 1 ) =SQR < S ( 3 ) f E-f S CS ) f cf -a^S C 3 ) *S ( E.) *COS ( A C 1 ) ) ) 

a 
s 

o 

a70 INPUT A(3) >A<a) ,S(3) 

S75 A<3)=A(3>«C 

a76 A<a)=A(E)*C 

esO A(1)=P-A(E)-A«3) 

& 

& 

310 INPUT SCI) >S<E) ,AC1) 
315 A(i)=A(l)*C 

sao T=s(a)*siN<A(i)) 

® 



470 PRINT "SIDE"?!; " = "IINT(S(I )*1000-!-.5)/1000 

4B0 PRINT "OPPOSITE ANGLE=" ? INT (A (I ) /C*1000+ .5 > /lOOO; "DEGREES" 

490 NEXT I 

a 



560 END 
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Analysis of Two Vectors 



This program calculates the angle between two given vectors, the angle between each vector and axis, and 

the magnitude of each vector. The vectors are given in three dimensional space. 



Example; 

Find the angle ( 9 ) between a diagonal of a cube and a diagonal of one of its faces. The cube measures 
4x4x4. 



(0,4,4) 



^4,0) 




(0,0,0) 



(4,0,0) 



(4,4,4) 



(4,0.4) 



: RUM 

ANALYSIS OF TWO VECTORS 

VECTOR i^ X,Y,Z? 0,4, 4 
VECTOR e: X,YvZ? 4. ,4. 4 

VECTOR 1 S 

MAGNITUDE : S . 656854E495 

ANGLE WITH X-AXISS 90.00000076485 

ANGLE WITH Y~AXISS 45.00000033857 

ANGLE WITH Z~AXIS: 45.00000038257 

VECTOR a : 

HAGNITUDE^ 6.9888038303 

ANGLE WITH X-AXIS^ 54.73561073861 

ANGLE WITH Y-AXIS^ 54. 73561 078E61 

ANGLE WITH Z-AXIS^ 54.73561073861 

ANGLE BETWEEN VECTORS! 35 « 86438998882 

HDRE DATA ii^VES, 0=NO)? 

END PROGRAH 
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PROGRAM LISTING 

iO PRINT "ANALYSIS OF -TWO VECTORS" 

aO PRINT 

30 DIH XiZ), YCa), 2(a), rKE) 

39 REH - STATEHENTS 40 TO 70 REQUEST VECTOR COORDINATES 

40 PRINT "VECTOR 1^ XiY,2»| 
50 INPUT XQ) ,YCi) ,2(1) 

60 PRINT "VECTOR Bi X^Y,2"; 

70 INPUT X(e> ,V<a) .Z<E) 

80 PRINT 

89 REM - LOOP TO ANALYZE BOTH VECTORS 

90 FOR 1=1 TO a 

99 REM - CALCULATE MAGNITUDE. PRINT 

100 M < I ) sSQR <X ( I ) tE4-Y ( I ) ta-i-Z (I ) f H ) 

109 REM - IS VECTOR A POINT? IF YES, CANNOT COMPUTE AN ANGLE 

110 IF MCI) =0 THEN SeO 
lao PRINT "VECTOR " ? I ; " i " 
130 PRINT "MAGNITUDE : » | M < I ) 

139 REM - CONVERSION FACTOR FOR RADIANS TO DEGREES 

140 S=57ee9578 

149 REM - CALCULATE ANGLE BETWEEN VECTOR AND X-AXIS, PRINT 

150 J=X<I)/Ma> 

160 PRINT "ANGLE WITH X-AXIS: "?ARCCOS (J )^S 

169 REM - CALCULATE ANGLE BETWEEN VECTOR AND Y-AXIS. PRINT 

170 J=Y(I)/M(I) 

ISO PRINT "ANGLE WITH Y-AXIS: ";ARCCOS( J )*S 

189 REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS, PRINT 

190 J=2<I)/MCI) 

aOO PRINT "ANGLE WITH Z-AXIS: " ;ARCCOSC J)*S 

ElO PRINT 

SaO NEXT I 

E30 J=0 

a39 REM - IF EITHER VECTOR A POINT, CANNOT COMPUTE ANGLE 

e40 IFM«1)=0 THEN 310 

BSO IF M(a)=0 THEN 310 

E59 REM - CALCULATE ANGLE BETWEEN VECTORS 

S60 J==(X(l)*X<E)+Y(l)*Y(e)+Z<l)*Z<a))/M(l)/M(a) 

E69 REM - ARE THE VECTORS PERPENDICULAR? 

070 IF JOO THEN 300 

aSO J=90 

£90 GOTO 310 

E99 REM - CALCULATE ANGLE IN DEGREES, PRINT 

300 J=ARCCOS<J)*S 

310 PRINT "ANGLE BETWEEN VECTORS: "U 

3E0 PRINT 

3E9 REM - RESTART OR END PROGRAM? 

330 PRINT "MORE DATA <1=YES, 0=NO)"| 

340 INPUT Z 

350 IF 2=1 THEN EO 

360 END 
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Operations on Two Vectors 



This program performs four operations on two vectors given in three space. The operations performed are 

1) Addition 

2) Subtraction 

3) Scalar (dot) product 

4) Cross product 

Example". 

Vectors are drav^n from the origin to two points A(5,-1,2) and B(1,4,9). Add, subtract, and find the dot and 
cross product of these vectors. 

:RUH 

OPERATIONS OH TWO VECTORS 

VECTOR A: X.Y,Z COORDINATES? Sv-i>e 
VECTOR B: X/V,Z coordinates? 1,4,9 

A-iB= S , 3 » 11 
A-B= 4 .-5 ,-7 
A.B= 19 
A*B=-17 ,"43 , El 

HORE DATA? a=YES, 0=NO)? 

END PROGRAH 

PROGRAH LISTING 

10 PRINT "OPERATIONS ON TWO VECTORS" 

EO PRINT 

30 PRINT "VECTOR A: XjY^Z COORDINATES"; 

40 INPUT Xl.Yl.Zl 

50 PRINT "VECTOR B: X,Y,Z COORDINATES"; 

60 INPUT xs,Ya.za 

70 PRINT 

79 REH ~ PERFORH VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATES 

80 PRINT "A-fB=";xi4-xars";Yi4-Y2;",";zi-i-za 

89 REH " PERFORH VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINATES 

90 PRINT "A-B=";X1-XE?","?Y1-YE; •\";Z1-ZE 
99 REH - CALCULATE DOT Pf^ODUCT , PRINT 

100 PRINT "A.B=";Xl*XS-fYl*YE4-Zl-^ZS 

109 REH - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COORDINATES 

110 PRINT "A*Bs» ; Yi«zs-zi*vs; " , " ;zi-»xa-xi«zs; " . " ;X1*YS-Y1*XS 
laO PRINT 

159 REH - RESTART OR END PROGRAH? 

130 PRINT "HORE DATA? (i=YES. 0=NO)"|. 

140 INPUT X 

150 IF X=l THEN EO 

160 END 
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Angle Conversion: Radians to Degrees 



This program converts an angle given in radians to degrees, minutes and seconds. 

Example: 

How many degrees, minutes and seconds are there in an angle of 2.5 radians? !n 118 radians? 

I RUN 

ANGLE CONVERSION? RADIANS TO DEGREES 

ANGLE IN RADIANS CENTER TO END PROGRAH)? S.B 
DEGREES =143 
HINUTES s 14 

SECONDS = ae.oi 

ANGLE IN RADIANS? 118 

DEGREES s E80 
MINUTES s 54 

SECONDS =6.78 

ANGLE IN RADIANS? 
END PROGRAM 



PROGRAM LISTING 

iO PRINT "ANGLE CONVERSION^ RADIANS TO DEGREES" 

BO PRINT 

30 PRINT "ANGLE IN RADIANS CENTER TO END PROGRAM)"; 

40 GOTO 60 

50 PRINT "ANGLE IN RADIANS"? 

60 INPUT R 

69 REM - TEST FOR END OF PROGRAM 

70 IF R=0 THEN 170 

79 REM - CONVERT RADIANS TO SECONDS 

80 A=3600^180*R/3el4159E7 

89 REM - CALCULATE NUMBER OF WHOLE DEGREES 

90 D=INT (A/3600) 

99 REM -- CALCULATE NUMBER OF FULL CIRCLES 

100 Di=INT(D/360) 

109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES, PRINT 

110 PRINT '' DEGREES '^"?D-360^Di 
119 REM - CALCULATE MINUTES » PRINT" 

ISO PRINT " MINUTES ^" Ui'^T C (A-D^3600 ) /SO > 

109 REM. - CALCULATE SECONDS, ROUND OFF, PRINT 

130 S=A-D^3600-"<INT« (A-D-^3600 ) /SO ) )^60 

140 PRINT " SECONDS ^" ? INT< iOO*S-5" .5 )/iOO 

150 PRINT 

159 REM RESTART PROGRAM 

160 GOTO 50 
170 END 
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OPTION 

You may prefer your answer in degrees and decimals of degrees rather than degrees, minutes and seconds. 
The program changes necessary are listed following the example below. 

Example: 

How many degrees are there in an angle of 2.5 radians? 



% RUN 

ANGLE CONVERSIONS RADIANS TO DEGREES 

ANGLE IN RADIANS (ENTER TO END PROGRAM)? E»5 
DEGREES s: 143 

ANGLE IN RADIANS? 
END PROGRAM 



PROGRAM LISTING 

I REM - OPTION 110 
iO PRINT "ANGLE CONVERSInNS RADIANS TO DEGREES" 

e 

109 REM - CALCULATE DEGRELS OF ANGLE WITHIN 360 DEGREES, PRINT 

110 PRINT " DEGREES ==" ; li^ITi (D-3S0*Di )^100+ ,5 ) /iOO 
150 PRINT 

e 

a 
a 

170 END 
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Angle Conversion: Degrees to Radians 



This program converts an angle given in degrees, minutes and seconds to radians. 

Examples: 

An angle measures 30 degrees, 5 minutes and 3 seconds. What would be the measure of this angle In ra- 
dians? 

What would be the radian measurement of two angles measuring 278°, 19', 54" and 721°, 0', 0"? 

IRUH 

ANGLE CONVERSION? DEGREES TO RADIANS 

<T0 END PROGRAM ENTER 0,0,0) 

ANGLE IN DEGREES, HINUTES, SECONDS? 30,5,3 

RADIANS « .5350676852416 

ANGLE IN DEGREES, MINUTES, SECONDS? 878,19,54 
RADIANS » 4»857S03S945i6 

ANGLE IN DEGREES, MINUTES, SECONDS? 781,0,0 
RADIANS « 1 «74514900E-0e 

ANGLE IN DEGREES, MINUTES, SECONDS? 0,0,0 
END PROGRAM 



PROGRAM LISTING 

i.0 PRINT "ANGLE CONVERSInN: DEGREES TO RADIANS" 

EO PRINT 

30 PRINT "(TO END PROGRAM ENTER 0,0,0)" 

40 PRINT "ANGLE IN DEG REES, MINUTES, SECONDS " ; 

50 INPU1 D,MvB 

59 REM -- TEST FOR END OF PROGRAM 

GO IF DOO THEN 100 

70 IF MOO THEN 100 

80 IF SOO THEN 100 

90 GOTO 150 

99 REM - CONVERT DEGREES, MINUTES, SECONDS TO DEGREES 

100 A=D+M/60+S/3600 

109 REM - CALCULATh NUMBER OF COMPLETE CIRCLES 

110 R=INT(A/360) 

119 REM - CALCULATE ANGLE WITHIN 360 DEGREES, PRINT 

lEO PRINT "RADIANS «"; A* .01745389 "-R-»5. 2831 853 

130 PRINT 

139 REM - RESTART PROGRAM 

140 GOTO 40 
150 END 
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OPTION 

It may be more convenient for you to enter the angle in degrees and fractions of degrees rather than 
degrees, minutes and seconds. The program changes necessary are listed following the example below. 

Example: 

How many radians are in an angle measuring 33.08°? 90°? 



:RUH 

ANGLE conversion: DEGREES TO S^ADIANS 

<T0 END PROGRAH ENTER 0) 
ANGLE IN DEGREES? 33.08 
RADIANS ^ „577354833E 

ANGLE IN DEGREES? 90 
RADIAi-IS ^ 1 » 5707961 

ANGLE IN DEGREES? 
END PROGRAM 



PROGRAM LISTING 

i REM - OPTION 30-60 

10 PRINT "ANGLE CONVERSIOi-l: DEGREES TO RADIANS' 

BQ PRINT 

30 PRINT "(TO END PROGRAM ENTER 0)" 

40 PRINT "ANGLE IN DEGREES" 5 

50 INPUT A 

59 REM - TEST FDR END OF PROGRAM 

GO IF A=0 THEN 150 

109 REM - CALCULATE NUMBE.^. OF COMPLETE CIRCLES 

& 

150 END 



64 



Coordinate Conwersion 



This program converts the coordinates of a point given in Cartesian coordinates to polar coordinates, and 
vice versa. 

The formulas for the conversions are: 

r ~ V x^ -h K^ 
A = arctangent { y/x ) 

X = f « cosine ( A ) 
y = r « sine ( A ) 

where: x = abscissa 1 ^ 

y = ordinate/ Cartesian coordinates 

f = magnitude of ray \ 

A = angle (in degrees)/ Polar coordinates 

Examples: 

Find Cartesian coordinates of the point (2,30.5°) given in polar coordinates. 

If a point is at (7,18) in the Cartesian system, what are its coordinates in the polar system? 

A point is located at (0,-46.8). What is its location in polar coordinates? 

SRUN 

COORDINATE CONVERSION 

( i=CARTESIAN TO POLAR) 

C»1^P0LAR TO CARTESIAN) 

i 0=END PROGRAH) 
WHICH DIRECTION? -1 
R,A? E,-30a5 
X = 1.7E , Y « laOa 
yHICH DIRECTION? 1 
X,V? 7,18 

R = 19.31 , A = 68.75 
WHICH DIRECTION? 1 
X,Y? 0.-46o8 
R = 46a8 . A ^ E70 
WHICH DIRECTION? 

END PROGRAH 
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PROGRAH LISTING 



iO 

EO 
30 

40 
50 
50 

70 
79 
30 

89 
90 
98 
99 
100 
ilO 
119 
lEO 
lES 
130 
139 
140 
150 
160 
159 
170 
180 
IBS 
190 

aoo 

ElO 
ESO 
E30 
e39 
S40 
£50 
E59 
E60 
S69 
£70 
ESO 
£90 
300 
310 
318 
319 
3E0 
330 
339 
340 
349 
350 
350 
370 
380 



"COORDINATE CONVERSION 



i i=CARTESIAN TO POLAR) 
C-1=P0LAR TO CARTESIAN) 
( 0=END PROGRAH)" 
DIRECTION"? 



PRINT 

PRINT 
PRINT " 

PRINT " 
PRINT '• 

PRINT "ynicH 

INPUT D 

REM - END PROGRAM? 

IF D=0 THEN 380 

REM - DIRECT PROGRAM TO PERFORM PROPER CONVERSION 

IF D=-i THEN 3a0 

REM - CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES 

REM •- ENIER CARTESIAN COORDINATES (ABSCISSA, ORDINATE) 

PRINT "X,Y"? 

INPUT X.Y 

REM - POINT ON Y-AXIS? 

IF X=0 THEN 170 

REM - POINT ON X-AXIS? 

IF Y=0 THEN EGO 

REM - COMPUTE POLAR COORDINATES. ROUND OFF, PRINT 

PRINT "R ='*?INT<SGN<X)*-SQRCXtS-^YtS)*100+.5)/100r\"; 

PRINT " A ="aNT<ATNr'//X)«i80/3.i4i59E7^i00'f «5)/100 

GOTO 60 

REM - POINT IS ON Y-AXIS; AT ORIGIN? 

IF Y=0 THEN S40 

PRINT "R s";ABS(Y)§%"l 

REM - IS POINT ABOVE nR BELOW ORIGIN? 

IF V<0 THEN EEO 



PRINT 

GOTO 

PRINT 

GOTO 

REM - 

PRINT 

GOTO 

REM - 

PRINT 

REM - 

IF X<0 

PRINT 

GOTO 

PRINT 

GOTO 

REM - 

REM - 

PRINT 

INPUT 

REM - 
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S70 



» A 

60 
" A 

60 
POINT IS AT ORIGIN 
»R a 0, A s-0" 

60 
POINT IS ON X-AXIS 
"R s"?ABS(X)r'-/'? 
IS POINT TO LEFT OR RIGHT OF ORIGIN? 

THEN 300 
" A » 0" 

60 
" A s 180" 
60 
CONVERT FROM POLAR CODRDIATES TO CARTESIAN 
ENTER POLAR COOK'DINATES (MAGNITUDE OF RAY, 
"R,A"? 
R..A 

CONVERT FROM -DEGREES TO RADIANS 
M=(A~INT (A/360 )*360)^::ia4l59e7/18D 
REM - CALCULATE CARTESIAN COORDINATES. 
PRINT "X «";lNT(R#COS(M)*1004-.5)/100?" 
PRINT " Y «"aNT(R-»SIN(M)^100"i-.5)/i00 
GOTO 60 
END 



COORDINATES 
ANGLE ) 



ROUND OFF, PRINT 
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Coordinate Plot 



This program plots points on a set of coordinate axes. You must provide the x - and y -coordinates of all 

points to be plotted, the endpoints of the x - and y -axes, and the increment between points on each axis. 

The graph Is unconventional in that its x -axis runs vertically while its y-axls runs horizontally. In addition, 
the axes do not necessarily intersect at zero. A reminder as to where the axes intersect is printed at the top of 

each graph. 

The limit on the number of points plotted may be increased or decreased by altering statement 30 in the 
following manner: 

30 DIH X«/V-Hl),Y(/V+/) 

where /V = the maximum number of points you wish to plot. 

The length of the y -axis is limited by the width of your output device. This program tests for a length not to 
exceed 70 spaces. The test at statement 90 should be altered to accommodate your particular output device. For 

an output device with a line width of 112 characters you might enter: 

90 IF BE < =108 THEN IBO 

Example: 

The heights of twelve men and their sons are recorded in the table below. Plot the data points. 

father 
son 
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63 


67 


64 


68 


62 


70 


66 


68 


67 


69 


71 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 


70 



height in inches 



^30 DIM- XU3),YCi3) 

COORDINATE PLOT 

X-AXISI LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT? 68,73, «5 
Y~AXIS: LOWER ENDPOINT, UPPER ENDPOINT. INCREMENT? 62^73,, £5 
NUMBER OF POINTS TO BE PLOTTED? 18 
COORDINATES OF POINT I ? 65,68 

e ? G3vS6 

3 ? 67,68 

4 ? 64,65 

5 ? 68,69 

6 ? 68,66 

7 ? 70,68 

8 ? 66»55 

9 ? 68,71 

10 ? 67»67 



POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 



11 
12 



?-69,68 
? 71,70 
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ir^TERSECTION OF AXES AT C 62 » 60 ) 



•f 



* 

* 

X 



END PROGRAM 



PROGRAH LISTING 

10 PRINT "COORDINATE PLiiT" 

EO PRINT 

SB REH - DIMENSION OF X() AND Y() SHOULD BE LIMITED TO ihl^D; 

E9 REH -■ WHERE N=THE NUMBER OF POINTS BEING PLOTTED, MAX. LIMIT 93 

30 DIM X(IOO) ,Y(iOO) 

39 REM - INPUT INFORMATION TO SET UP AXES 

40 PRINT "X-AXIS r LEFl ENDPOINT . RIGHT ENDPDINT , INCREMENT"? 
50 INPUT Al, AE, A3 

bO PRINT "Y-AXIS: LOWER ENDPOINT , UPPER ENDPOINT , INCREMENT"? 

70 INPUT Bi, BE, B3 

80 BE=<ea~Bl)/B3 

88 REM - Y-AXIS TOO LONG FOR OUTPUT DEVICE? IF YES, CHANGE ENDPOINTS 

89 REM - OR INCREASE INCf^EMENT 

90 IF BE<=70 THEN ISO 

100 PRINT "Y-RANGE TOO LAkGE" 

110 GOTO 60 

laO PRINT "NUMBER OF POIN'I S TO BE PLOTTED"; 

130 INPUT N 

139 REM - NO POINTS TO PLitT? END PROGRAM 

140 IF N=0 THEN 1070 

149 REM - TOO MANY POINTS? IF YES, REENTER NUMBER OF POINTS 

150 IF N<=99 THEN 180 
160 PRINT "TOO MANY POINTft" 
170 GOTO ISO 
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179 REM - LOOP TO INPUT X,Y COORDINATES FOR EACH POINT 

180 FOR I=^i TO N 

190 IF i>i THEN eeo 

aOO PRINT "COORDINATES OF POINT "?I; 

ElO GOTO E30 

EEO PRINT " POINT ";1; 

230 INPUT X(I) Yd) 

E39 REH - ROUND OFF EACH XvV TO NEAREST INCREMENT ON AXIS 

L'40 X ( I ) =:INT < (X < I) -Ai ) /A3+ . 5 ) 

S50 Y(I)=INT( (Ya)-Bl)/B3-f ,5) 

EGO NEXT I 

S69 REM - CALCULATE ADDITIONAL X AND Y COORDINATE 

E70 Y ( N^ 1 ) =INT ( BE+ . 5 ) f 1 

S80 X ( N-4- 1 ) -INT i i AE-Al ) /A3+ . B ) + 1 

£90 PRINT 

£99 R£M ~ NOTE WHERE AXES CROSS 

300 PRINT "INTERSECTION OF AXES AT ( " ;A1 ;" , " ;Bi ? " ) " 

310 PRINT 

319 REM - SORT COORDINATEh; REORDER X(l) TO X(N) SMALLEST TO LARGEST 

3S0 FOR J»i TO N 

330 FOR 1=1 TO N-J 

340 A=X<I) 

350 B=Y(I) 

360 C=X(I-M> 

370 D=Y(I+i) 

380 IF A<C THEN 430 

390 X(I)=C 

400 Y(I>=D 

410 X(I-fl)=A 

4E0 Y ( 1-4-1 )=B 

430 NEXT I 

440 NEXT J 

449 REM - NEXT POINT TO BE PLOTTED STORED IN T 

450 T=l 

459 REM - SKIP POINTS OUT OF X-POSITIVE RANGE 

460 FOR P=0 TO N-1 

470 IF X(P-fi)>=0 THEN 490 

480 NEXT P 

489 REM - LOOP TO CALL UP EACH X-INCREMENT FOR LINES OF PRINT 

490 FOR 1=0 TO INT< (AE-Al ) /A3-^ »5) 
500 T~T+P 

509 REM » COUNT NUMBER OF POINTS TO BE PLOTTED ON EACH LINE IN P 

510 P=0 

519 REM - ALL POINTS PLOTTED? 

5S0 IF T>N THEN 540 

5E9 REM - X-VALUE ON X-LINE? IF YES, TEST FOR Y 

530 IF X(T>=I THEN 590 

539 REM - FIRST LINE? IF YES, Y-AXIS MUST BE PLOTTED 

540 IF 1=0 THEN 570 

549 REM - PLOT X-AXIS 

550 PRINT "*"? 
560 GOTO 1040 
570 S=N-fl 

580 GOTO 9E0 

590 FOR L=T TO N 

599 REM - NEXT POINT PLOTTED ON SAME LINE? 

600 IF X(L)>X(T) THEN 630 
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609 REM - COUNT POINTS TO BE PLOTTED ON EACH LINE 

610 P^P-i-i 
6E0 NEXT L 

659 REM - PLOT ONE POINT 
630 IF P=i THEN 730 

638 REM - LOOP TO SORT Y-COORDINATES WITH EQUAL X- COORDINATES? 

639 REM - REORDER SMALLEST TO LARGEST 

640 FOR J=i TO P 
550 FOR L=l TO P-J 

660 D=Y(T-i-L-l) 
670 B=V<T-fL> 

680 IF D<=B THEN 710 

690 Y<T-4-L-i>=B 

700 Y<T-fL)sD 

710 NEXT L 

7aO NEXT J 

730 FOR L=0 TO P-l 

740 2=Y(T-tL) 

749 REM - TEST FOR OUT -OF -RANGE Y -COORDINATE 

750 IF 2>=0 THfcN 770 
760 NEXT L 

769 REM -~ POINT TO BE PLOTTED ON X-AXIS? 

770 IF 1=0 THEN 910 

779 REM - POINT TO BE PLOTTED ON Y-AXIS? 

780 IF 2=0 THEN 800 

789 REM - PLOT X-AXIS 

790 PRINT "*"; 

BOO IF L=P-i THEN 870 

810 FOR J=L TO P-1 

819 REM - TEST FOR OUT -OF -RANGE Y- COORDINATE 

8E0 IF Z>Be THEN 1040 

8E9 REM - BYPASS DUPLICATh COORDINATES 

830 IF YCT-8-J>=2 THEN 860 

839 REM - PLOT POINT 

840 PRINT TAB(2)|"-i-"? 
850 2=Y<T-«-J) 

860 NEXT J 

869 REM - TEST FOR OUT-OF-RANGE Y-COORDINATE 

870 IF 2<0 THEN 1040 
880 IF 2>Ba THEN 1040 

889 REM - PLOT POINT 

890 PRINT TAB <Z )?"■*»? 
900 GOTO 1040 

910 S=T-i-L 

919 REM - LOOP TO ESTABLISH PRINT FDR FIRST LINE 

9E0 FOR J=0 TO BE 

959 REM ~ POINT TO BE PLOTTED? 
930 IF Y(S)<>J THEN 1010 

939 REM - PLOT POINT 

940 PRINl "f"; 

949 REM - BYPASS DUPLICATE COORDINATES 

950 FOR K=S TO T-^-P-l 

960 IF YCK)=Y(S) THEN 990 
970 S=K 

980 GOTO lOaO 

990 NEXT K 

1000 GOTO lOEO 
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1009 REH - PLOT Y-AXIS 

lOiO PRINT "*»; 

lOEO NEXT J 

iOE9 REH - LABEL Y-AXIS 

1030 PRINT "Y»? 

1039 REM - ADVANCE OUTPUT DEVICE TO NEXT LINE 

1040 PRINT 
1050 NEXT I 

1059 REM - LABEL X-AXIS 

1060 PRINT "X" 
1070 END 
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Plot of Polar Equation 



This program plots a given function in polar coordinates. There are up to 90 points plotted, one every four 

degrees. (Some points may overlap.) 

The graph is conventional in that the x -axis runs horizontally, the y -axis runs vertically, and they intersect 

at zero. You need only specify the absolute value of the endpoints. 

The increment between each point on the x - and y -axes is adjusted so that a value of one on either axis is 
equidistant from zero. This allows the function to be plotted with minimal distortion. An adjustment of each in- 
crement is necessary because of different spacing horizontally and vertically on an output device. (This program 
assumes ten spaces per inch horizontally and six spaces per inch vertically, if your output device differs, the graph 
may be distorted.) 

It is necessary for you to enter the function to be plotted before you run the program. The function must be 
entered as a function of d, fid) will be entered and set equal to F at line 130. For example, the function 
f{ d ) = 2m-cos( d )) will be entered as follows: 

130 F=S«C1~C0S<D)) 



(Continued on next page) 
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Example: 

Plot the equation f{d)=2 »(1-cos( d )). 



1130 F^*<i-COS(D) ) 

I RUN 

PLOT OF POLAR EQUATION 

ABSOLUTE VALUE OF ENDPOINTS? 4 

INCREMENT OF X-AXIS ^ .1333333333333 
INCREMENT OF Y-AXIS « .BBEBBBBBQEBBE 

* 

4- -^ -i- * 

i- 4- 4- 4. 4.+ -A 

■f *4 

+ * ^ 

-5 # + 

# 4- 

H- * 4- 

+ •* 4- + 

•I- 4^-4- 

* + 
i * 4- 

•«- « 4- 

•f ■«■ 4- 

4- * 4-4- 

•f #4- 

4- 4-#4- 

4- 4- 4-4- * 

4-4-4- 4- 4-4- # 

4' 4- 4- * 

* 
* 

* 

END PROGRAM 
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PROGRAM LISTING 

iO PRINT "PLOT OF POLAR EQUATION'^ 

eO PRINT 

E8 REH » COORDINATE ARRAYS SET FOR 90 POINTS? 

B9 REH - ONE EXTRA X-eOORDINATE IS CALCULATED IN PROGRAM 

30 Din XC91) vYOO) 

39 REM - NUMBER OF POINTS TO BE CALCULATED 

40 N=90 

49 REM - ABSOLUTE VALUE OF ALL ENDPOINTS ARE EQUAL 

50 PRINT "ABSOLUTE VALUE OF ENDPOINTS"? 
60 INPUT Z 

70 PRINT 

79 REM - CALCULATE INCREMENTS OF AXES ACCORDING TO CHARACTERS PER AX 
IS 

80 PRINT "INCREMENT OF X-AXIS =";Z/30 
90 PRINT "INCREMENT OF V-AXIS «";Z/18 

100 PRINT 

110 FOR 1=1 TO N 

119 REM - CONVERT DEGREES TO RADIANS 

leO D=. 06981317*1 

130 REM - ENTER FUNCTION HERE CF= "FUNCTION " ) 

139 REM - CALCULATE EACH CARTESIAN COORDINATE, ROUND OFF TO NEAREST I 
NCREMENT ON AXIS 

140 X(I)=INT( i <F*C0SCD)/Z-^1 )*30)-f e5) 
150 Ya)=INT< i C-F«-SIN<D)/Z-^l)^18)4-.5) 
160 NEXT I 

169 REM - SORT COORDINATES; REORDER YCl) TO YCN) SMALLEST TO LARGEST 

170 FOR J=l TO N 
180 FOR 1^1 TO N-J 
190 A=X(I) 

EOO B=Y<I) 

ElO IF B<=Y(I+1) THEN ESO 

EEO XCI)=X<I-4-i) 

ESO YCI)=Y<I"M) 

S40 X<I+l)sA 

850 Y(I + i)=sB 

S60 NEXT I 

S70 NEXT J 

579 REM "" NEXT POINT TO BE PLOTTED STORED IN T 

580 T==l 

E89 REM - SKIP POINTS OUT OF Y-POSITIVE RANGE 

E90 FOR P=0 TO N~l 

300 IF Y(P+i)>=0 THEN 3S0 

310 NEXT P 

319 REM - LOOP TO CALL UP EACH Y-INCREMENT FDR LINES OF PRINT 

380 FOR 1=0 TO 36 

330 T^T-i-P 

339 REM - NUMBER OF POINTS TO BE PLOTTED ON EACH LINE STORED IN P 

340 P=0 

349 REM •- ALL POINTS PLOTTED? 

350 IF T>N THEN 370 

359 REM - Y-VALUE ON Y-LINE? 

360 IF Y<T)=I THEN 4S0 

369 REM - PRINT X-AXIS? 

370 IF 1=18 THEN 400 
379 REM - PRINT Y-AXIS 
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380 PRINT TABOO);"*"; 

390 GOTO 860 

400 S=N-fl 

410 GOTO 740 

4E0 FOR L=T TO N 

4a9 REH - NEXT POINT TO BE PLOTTED ON SAME LINE? 

430 IF Y<L)>YCT) THEN 450 

440 P=P+i 

450 NEXT L 

460 IF P=l THEN 560 

468 REM ~ LOOP TO SORT X-COORDINATES WITH EQUAL V -COORDINATES? 

469 REM - REORDER SMALLEST TO LARGEST 

470 FOR J=l TO P 
480 FOR L=l TO P-J 
490 C=X<T+L-i) 

500 A=X(T4-L) 

510 IF C<=A THEN 540 

SaO X<T+L-1)=A 

530 X<T-fL)=C 

540 NEXT L 

550 NEXT J 

559 REM - PRINT X-AXIS? 

550 IF 1=18 THEN 730 

570 L=-l 

580 S=0 

590 FOR K~0 TO P-1 

599 REM - MORE THAN ONE POINT TO BE PLOTTED AT SAME POINT ON GRAPH? 

600 IF X(T4-K)=L THEN 690 
610 L=X<T+K) 

619 REM - PLOT POINT ON V-AXIS? 

6S0 IF L=30 THEN 660 

609 REM ~ PLOT POINT TO THE LEFT OF Y-AXIS? 

630 IF LOO THEN 670 

640 IF S=l THEN 670 

649 REM - PRINT Y-AXIS 

650 PRINT TAB ( 30 ) ?" * " ? 
660 S=i 

669 REM - POINT OUTSIDE OF POSITIVE X-RANGE? 

670 IF L>60 THEN 860 

679 REM - PLOT POINT 

680 PRINT TAB <L );"•*■"; 
690 NEXT K 

700 IF S=l THEN 860 

709 REM - PRINT Y-AXIS 

710 PRINT TAB (30 );"*"; 
7E0 GOTO 860 

730 S=T 

739 REM - LOOP TO PRINT LINE OF X-AXIS 

740 FOR J=0 TO 60 

750 IF X(S)<>J THEN 830 

759 REM - PLOT POINT ON X-AXIS 

760 PRINT "+"; 

770 FOR K>S TO T-t-P-i 

7S0 IF X<K)=X<S) THEN 810 

790 S=K 

800 GOTO S40 

810 NEXT K 
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8£'0 


GOTO 840 


8E3 


REM - PRINT X-AXIS 


830 


PRINT "^"; 


840 


NEXT J 


8-0-9 


REfi - LABEL X-AXIS 


850 


PRINT "X"; 


8G0 


PRINT 


870 


NEXT I 


873 


REM - LABEL Y-AXIS 


880 


PRINT TABOO)? "V" 


830 


END 
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Plot of Fynctions 



This program calculates and plots up to nine functions. All functions must be functions of x , and all will be 
plotted on the same set of axes. 

To set up the axes you must input the endpoints of the x - and y -axes. You must also state the increment 
by which the points on each axis are to be increased. 

The graph is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. To read the 
graph you must either turn your output 90° counterclockwise or mentally adjust to the change in convention. 

The graph is also unconventional in that its axes do not necessarily cross at zero. A reminder as to where the 
axes cross is printed at the top of each graph. 

You must enter the functions to be plotted as program statements prior to running the program. Statement 
numbers 221 to 229 are reserved for this purpose. Functions must be entered in the number sequence Y(1), 
Y(2L . . Y(9). For example, if you wish to plot the functions f{x)-2x +1 andf(x) = ^, you must type: 

esi Y(1)=E*X+1 

SEE V<S)=SQR<X) 

The length of the y -axis is limited by the width of your output device. This program tests for a length not to 
exceed 70 spaces. The test at statement 140 should be altered to accommodate your particular output device. 
For example, an output device with a line width of 64 characters would accommodate a graph 62 spaces wide. 
You would change statement 140 to: 

140 IF YE<=6a THEN 170 

Example: 

Plot the equations f{x)= cos( x ) and f ( x ) = sinf x ). 



^aei YM )=cos(X) 

:£EE Y<S)=SIi--HX) 

I RUN 

PLOT OF FUNCTIONS 

NUMBER OF FUNCTIONS TO BE PLOTTED? E 

X~AXIS:LEFT ENDPOINT, right ENDPOINT, increment? "-5,5,.S5 

Y-AXIS :-LOWER ENDPOINT .UPPER ENDPOINT .INCREMENT? -E,S..l 
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X-AXIS CROSSES Y-AXIS AT Y=-E 

Y-AXIS CROSSES X-AXIS AT X=-5 
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END PROGRAM 
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PROGRAM LISTING 



10 

ao 

E9 
30 
40 

50 

60 

o^ 

70 

80 

90 

100 

110 

lEO 

1E9 

130 

138 

139 

140 

150 

160 

170 

180 

189 

190 

EOO 

SIO 

E19 

SEO 

E30 
E39 
E40 
E50 
E59 
E60 
SG9 
E70 
£80 
E89 



E90 
300 
310 
SEO 
3E7 
3E9 

330 
340 

360 
370 
380 
390 



PRINT "PLOT OF FUNCTIONS" 

PRINT 

REM - NUMBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED TO 9 

DIM V(9) .A^<11) 

FOR 1=1 TO 11 



REM - 

READ 

NEXT 

REM - 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

REM - 



70 TO ISO REQUEST USER INPUT 
FUNCTIONS TO BE PLOTTED"; 



IF YES, THEN 



GET VALUES FOR A* -ARRAY FROM DATA TABLE AT STATEMENT 470 
A^(I) 
I 

STATEMEr-iTS 

"NUMBER OF 

N 

"X-AXIS : LEFT ENDPOINT , RIGHT ENDPOINT , INCREMENT " ; 

"Y-AXIS:L0WER ENDPOINT, UPPER ENDPOINT » INCREMENT" 

Y1,YS,Y3 

CALCULATE NUMBER OF SPACES ON Y-AXIS 
YE=<YE-Y1)/Y3 

REM ~ TEST FOR A Y-AXIS TOO LONG FOR OUTPUT DEVICE 
REM - LESSEN RANGE OR INCREASE INCREMENT 
IF YE<=70 THEN 170 
PRINT "Y-RANGE TOO LARGE" 
GOTO 110 
PRINT 
PRINT 
REM - 
PRINT 
PRINT 
PRINT 

REM - SET UP LOOP TO READ VALUE AT EACH X -INCREMENT 
FOR X=X1 TO XE STEP X3 

REM - FUNCTIONS Yd) TO Y(9) SHOULD BE ENTERED AT LINES ESI TO SE9 
FOR 1=1 TO N 

REM - ESTABLISH THE ROUNDED VALUE OF Y FOR EACH X -INCREMENT VALUE 
Y < I ) =INT ( < Y < I ) -Yl ) / Y3+ . S ) 
NEXT I 

REM - LOOP TO READ VALUE OF EACH Y-INCREMENT 
FOR 1=0 TO YS 



MAKE NOTE OF WHERE AXES CROSS 
"X-AXIS CROSSES Y-AXIS AT Y="lYl 
"Y-AXIS CROSSES X-AXIS AT X="?X1 



ON THIS SPOT? IF YES, STORE FUNCTION NUMBER IN T 
3S0 



REM - S COUNTS THE NUMBER OF VALUES AT EACH Y-INCREMENT FOR EACH X 
S=0 

FOR J=l TO N 
REM - PLOT A POINT 
IF Y<J)<>I THEN 
S=S+1 
T=J 

NEXT J 

REM - TEST FOR NUMBER OF POINTS TO PLOT OM 
REM - IF PRINT "-f" (FIRST LINE ONLY), IF 
IF a OR MORE 



FOR NUMBER OF POINTS 
PRINT "-f" (FIRST LINE 
PRINT "*" 



EACH SPOT; 
1 PRINT FUNCTIOM 



NUMBER 



IF S>0 THEN 360 

PRINT At$(SGN(I) + 10) 

GOTO 400 

IF S>1 THEN 390 

PRINT A* <T); 

GOTO 400 

PRINT "*"; 
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400 NEXT I 

409 REM - LABEL AXES AT THE LAST SPACE ON EACH AXIS 

410 IF X>Xi THEN 430 
4E0 PRINT "Y"; 

4E9 REM - ADVANCE PRINTER TO NEXT LINE 

430 PRINT 

439 REM " PRINT SPACE INSTEAD OF "+" AFTER FIRST LINE OF PRINT < Y-AXIS) 

440 A* ( 1 1 ) = " " 
450 NEXT X 
460 PRINT "X" 

470 DATA "i"v"e" v"3'S"4" ,"5" , "6" , "7" , "S'S "9" ,"•*•" ,"■«-" 

480 END 
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Linear Interpolation 



This program calculates the y -coordinates of points on a line given their x -coordinates. It is necessary to 
know coordinates of two points on the same line. 



The point is interpolated using the following formula: 

y = Y^ + 



\x o- X 



where: x ^, y ^ = coordinates of first point on the line 

^ 2' y 2 — coordinates of second point on the line 

X = abscissa of point to be interpolated 

y = ordinate of the point on the line with x 



Examples: 



A conversion table lists 60°F as 15.56°C and 90°F as 32.22°C. Calculate degrees Celsius of 73°F and 85.6°F. 
A new sales tax of 17.5% has been imposed on us. What will be the tax on a sofa which sells for $455.68? 

: RUN 

LINEAR INTERPOLATION 

X..V OF FIRST POINT? 60,15.55 
X,Y OF SECOND POINT? 90, 38*88 
INTERPOLATE". X =? 73 

Y = 88.779 

HORE POINTS ON THIS LINE (i=V£S, 0=NO)? 1 

INTERPOLATE: X =? 85.6 

Y = 09.777 

MORE POINTS ON THIS LINE (1=YES, O^NO)? 
NEW LINE (1=YES, O^NO)? 1 

X,Y OF FIRST POINT? 0,0 

XvY OF -SECOND POINT? i00a7«5 

INTERPOLATED X ==? 455.68 

Y = 79.744 

MORE POINTS ON THIS LINE a=YES, 0=NO)? 
NEW LINE (1=YES, 0=NO)? 
END PROGRAM 
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PROGRAH LISTING 

10 PRINT "LINEAR INTERPOLATION'' 

EO PRINT 

as REM - ENTER X™ AND V-COORDINATES OF TWO POINTS ON THE LINE 

30 PRINT "X,Y OF FIRST POINT"; 

40 INPUT XivYi 

50 PRINT "X,Y OF SECOND POINT"; 

60 INPUT XEvYE 

6S REM - ENTER X -COORDINATE OF POINT TO BE INTERPOLATED 

70 PRINT "INTERPOLATE: X ="; 

80 INPUT X 

89 REM - COMPUIE CORRESPuNDING Y-COORDINATE 

90 Y=Yl+CYe-Yl)/«XE-Xl)*(X~Xl) 
99 REM - ROUND OFF, PRINT 

100 PRINT " y = "|INTCY*i000-f «5)/iOOO 

iiO PRINT 

lEO PRINT "MORE POINTS -ON THIS LINE C1=YES, 0=ND)"| 

130 INPUT Z 

140 PRINT 

150 IF Z=l THEN 70 

159 REM - INTERPOLATE ON ANOTHER LINE? 

160 PRINT "NEW LINE C1=YE«.. 0=NQ)"? 
170 INPUT Z 

180 IF Z=i THEN £0 

190 END 
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Cyrvilinear Interpolation 



This program computes y -coordinates of points on a curve given their x -coordinates. You must input 
coordinates of known points on the curve, no two having the same abscissa. 

The computations are performed using the Lagrange method of interpolation. 

The number of known points on the curve which may be entered in the program is limited to 50. You may 
increase or decrease this limit by altering statement 30 according to the following scheme: 

30 DIH X(P), V<P) 

where P = the number of known points on a curve. 

Examples: 

Consider the curve y = x ^ - 3x + 3. You know that the points (-3,-15), (-2,1), (-1.5), (0,3), (1,1), (2,5), and 
(3,21) are on the curve. What is the value of y when x = -1.65 and 0.2? 

Given the following points from a sine curve, what is the sine of -2.47 and the sine of 1.5? 



(-5,-958) 


(0,0) 


(-4,.757) 


(1,.841) 


(-3,-.141) 


(2,. 909) 


(-2,-.909) 


(3,.141) 


(-1,-.841) 


(4,-.757) 




(5,-.959) 


:30 DIM XCli) , YUl) 




: RUN 




CURVILINEAR INTERPOLATION 




NUMBER OF KNOWN POINTS? 7 




X,V OF POINT i ? -3,-15 




X,Y OF POINT a ? -E>1 




X,V OF POINT 3 ? -1,5 




XvY OF POINT 4 ? 0.3 




X,Y OF POINT 5 ? 1,1 




X>Y OF POINT 6 ? 03 




X,Y OF POINT 7 ? 3,E1 





INTERPOLATED X=? -i»65 

Y== 3 « 457874999999 

HORE X ON THIS CURVE <1=YES> 0=NQ>? 1 

INTERPOLATE: X=? .S 

Y= a.40800000000fcf 

MORE X ON THIS CURVE (1=YEB, 0=NO)? 
MORE X ON ANOTHER CURVE (1=YE3, 0=NO)? 1 

NUMBER OF KNOWN POINTS? 11 
XvY OF POINT 1 ? -5»«958 
X,Y OF POINT E ? --4,, 757 
X»Y OF POINT 3 ? -3, -.141 
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x,v 


OF 


POINT 


4. ? ~E,-.909 


XvV 


OF 


•POINT 


5 ? ~i.-.841 


x,v 


OF 


POINT 


6 ? 0,0 


X.Y 


OF 


•POINT 


7 ? 1 V «84i 


X,Y 


OF 


POINT 


8 ? S,.909 


X-,Y 


OF 


•POINT 


9 ? 3, .141 


X,Y 


OF 


POINT 


10 ? 4,-»757 



X,Y OF -POINT 11 ? 5v-a959 

INTERPOLATE: X=? -E.47 

Y="-« 6218395970637 

HORE X ON THIS CURVE C1=YES, 0=NO)? 1 

INTERPOLATE: X=? 1.5 

Y= .997163799E869 

HORE X ON THIS CURVE a=YES, 0=NO)? 
HORE X ON ANOTHER CURVE C1=YES, 0=NO)? 

END PROGRAH 



PROGRAH LISTING 

10 PRINT "CURVILINEAR INTERPOLATION" 

eO PRINT 

as REH - LIHIT X i ) AND Y C » TO MAXIHUH NUMBER OF POINTS KNOWN ON ANY 

E9 REH - CURVE TO BE ENTERED 

30 DIH X<50) , YC50) 

40 PRINT "NUHBER OF KNOWN POINTS"? 

50 INPUT P 

60 FOR 1=1 TO P 

69 REH ~ ENTER COORDINATES OF KNOWN POINTS ON CURVE 

70 PRINT "X,Y OF POINT" ;I I 
80 INPUT XCI) »YCI) 

90 NEXT I 

100 PRINT 

109 REM - ENTER X-COORDINATE OF POINT TO BE INTERPOLATED 

110 PRINT "INTERPOLATE: X="l 
lEO INPUT A 

130 B=0 

138 REH - COHPUTE CORRESPONDING Y~CODRDINATES BY LAGRANGE HETHDD OF 

139 REH ~ INI ERPOLATION 

140 FOR J=i TO P 
150 T=l 

160 FOR 1=^1 TO P 

170 IF 1=J THEN 190 

180 T=T*CA-XCI))/CXU)~XaH 

190 NEXT I 

SOO BsBi-T^YCJ) 

eiO NEXT J 

El 9 REM - PRINT RESULTS 

EEO PRINT " Y=";B 

E30 PRINT 

£39 REM - INTERPOLATE MOkE POINTS ON SAME CURVE? 

840 PRINT "MORE X ON THIS CURVE Cl^YES, 0=NO) 
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250 INPUT C 

EGO IF C. = l THEN 100 

£69 REH - RESTART OR END hROGRAM? 

E70 PRINT "HORE X ON ANOTHER CURVE a=YES, 0=NO)"; 

ESO INPUT C 

E90 IF C=l THEN SO 

300 END 
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Integration: Simpson's Rule 



This program approximates the definite integral of a function. The integral is computed using Simpson's 
rule. 

The method the program takes is optional: you must supply either the function of the curve or values of the 
function at specified intervals. For both methods you must enter the limits of integration and the increment bet- 
ween points within the limits. 

If the function to be integrated is known, it must be entered before running the program. The function will 
be defined at line 50. For example, the function f ( x ) = x ^ will be entered as follows: 

50 DEFFNC<X>=Xt3 

Examples: 

Find the definite integral of the function f(x) =x^ between and 2 with increments of .2 and .1. 

What is the integral of a curve between - 1 and 1 if the points known are as follows: 

f-1,.54) (.25,.969) 

(-.75,.73) (.5,.878) 

(-.5,.878) |.75,.73) 

(-.25,.969) (1,.54) 
(0,1) 

tSO DEFFNC(X)=Xf3 

2 RUN 

INTEGRATIONS SIMPSON'S RULE 

SELECTIONS 1=KN0WN FORMULA, 0=UNKNDUJN FORMULA? 1 
LOWER V UPPER LIMIT OF INTEGRATION? 0,8 
INCREMENT OF X? aE 
INTEGRAL IS 4 

END PROGRAM 

: RUN 

INTEGRATION: SIMPSON'S RULE 

selection: l=KNOtA)N FORMULA, 0=UNKNOUJN FORMULA? 1 
LOWER V UPPER LIMIT OF INTEGRATION? ,E 
INCREMENT OF X? «i 
INTEGRAL IS 4 

END PROGRAM 

IRUH 

INTEGRATION: SIMPSON'S RULE 

SELECTION: 1=KN0WN FORMULA, 0=UNKNOWN FORMULA? 
LOWER V UPPER LIMIT OF INTEGRATION? -1,1 
INCREMENT OF X? .E5 
FIRST, LAST VALUE OF F(X)? .54>«54 
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VALUE 
VALUk 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



OF 

OF 
OF 

OF 
OF 
OF 
OF 



INTEGRAL 



F<X) AT INTERVAL 1 (X=-,75 )? .73 

F(X) AT INTERVAL S <X=-»5 )? .878 

F<X) AT INTERVAL 3 <X=-.E5 )? .969 

F<X) AT INTERVAL 4 <X= )? 1 

F<X) AT INTERVAL 5 <X= =E5 )? «959 

F(X) AT INTERVAL 6 <X= .5 )? .878 

F<X> AT INTERVAL 7 <X= .75 )? .73 
IS i.68E 



END PROGRAM 



PROGRAM LISTING 

10 PRINT "INTEGRATION: SIMPSON'S RULE" 

SO PRINT 

30 PRINT "SELECTIONS i=KNaWN FORMULA, 0=UNKNOWN FORMULA"? 

40 INPUT S 

49 REM - IF FUNCTION IS KNOWN ENTER AT LINE 50 (DEFFNC (X ) = "FUNCTION " ) 

50 DEFFNC (X)=X 

60 PRINT "LOWER » UPPER LIMIT OF INTEGRATION"; 

70 INPUT A,B 

80 PRINT "INCREMENT OF X"? 

90 INPUT XI 

98 REM - INCREMENT MUST DIVIDE INTERVAL INTO EQUAL SUBINTERVALS ? 

99 REM - IF NOT, CHANGE INCREMENT 

100 IF (B~A)/X1<>INT< <B~A)/X1) THEN 80 

110 IF S=i THEN 150 

119 REM - FORMULA NOT KNO!#l; ENTER FUNCTION VALUE AT INTEGRATION LIMITS 

lEO PRINT "FIRST, LAST VALUE OF F<X)"? 

130 INPUT VI ,Ye 

140 GOTO 170 

149 REM - FORMULA KNOWN? CALCULATE F<X) AT INTEGRATION LIMITS 

150 Y1=FNC(A> 
ibO YS=FNC(B) 
170 C=0 

ISO D=0 

189 REM ~ LOOP FOR EACH SUBINTERVAL 

190 FOR 1=1 TO (B~A>/Xl"-«5 
SOO IF S=l THEN E40 

E09 REM - ENTER KNOWN FUNCTION VALUE AT EACH INTERVAL 

ElO PRINT "VALUE OF F(X) AT INTERVAL" ",I J " (X=" ;A+I*X1 ?")" 5 

EEO INPUT Y 

E30 GOTO E50 

839 REM - CALCULATE F<X) AT EACH SUBINTERVAL 

£40 Y=FNC(A-4-I*Xl> 

E49 REM - INTERVAL EVEN OK ODD? 

E50 IF I/E=INT<I/S) THEN 080 

£59 REM - SUM ALL ODD-INTERVAL FUNCTION VALUES 

S60 C=C+Y 

£70 GOTO £90 

£79 REM - SUM ALL EVEN-INTERVAL FUNCTION VALUES 

£80 D=D+Y 

E90 NEXT I 

£99 REM - COMPUTE INTEGRAL-. PRINT 

300 PRINT "INTEGRAL IS" ;X1 /3* < Y1+4*C+S^^D+Y£) 

310 END 
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Integration: Trapezoidal Ryle 



This program approximates the definite integral of a function. The integral is computed using the trapezoi- 
dal rule. You must provide the limits of integration and the number of intervals within the limits. 

The function to be integrated must be entered before running the program. The function of x will be defined 
at line 30. For example, the function fix) = x^ will be entered as follows: 

30 DEFFNC(X)=Xt3 

Examples: 

Find the definite integral of the function fix) = x ^ between and 2 with 10 and 20 intervals. 

Find the definite integral of the function fi x) = x "^ between 1 and 2 and 2 and 3 using 10 subintervals. 

:30 DEFFNC(X)=Xt3 
: RUN 

INTEGRATIONS TRAPEZOIDAL RULE 

CENTER 0,0 TO END PROGRAM) 
INTEGRATION LIHITS (LOWER, UPPER)? 0,8 
NUMBER OF INTERVALS? 10 
INTEGRAL =4,04 

INTEGRATION LIHITS (LOWER, UPPER)? 0,E 
NUMBER OF INTERVALS? EO 
INTEGRAL = 4«01 

INTEGRATION LIMITS (LOWER, UPPER)? 0,0 

END PROGRAM 

130 DEFFNC(X)=l/XtS 

: RUN 

INTEGRATION: TRAPEZOIDAL RULE 

(ENTER 0,0 TO END PROGRAM) 
INTEGRATION LIMITS (LOWER, UPPER)? 1,8 
NUMBER OF INTERVALS? 10 
INTEGRAL = .5014551E74644 

INTEGRATION LIMITS (LOWER, UPPER)? E,3 
NUMBER OF INTERVALS? 10 
INTEGRAL = .16681318133 

INTEGRATION LIMITS (LOWER, UPPER)? 0,0 

END PROGRAM 
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PROGRAM LISTING 

10 PRINT "INTEGRATIONS Ti^APEZOIDAL RULE" 

SO PRINT 

30 REM - ENTER FUNCTION HERE (DEFFNC (X )= "FUNCTION" ) 

40 PRINT 'M ENTER 0,0 TO END PROGRAM)" 

50 PRINT "INTEGRATION LIMITS (LOIaIER, UPPER)"; 

60 INPUT A,B 

69 REM ~ END PROGRAM? 

70 IF A=B THEN 190 

eO PRINT "NUMBER OF INTERVALS"; 

90 INPUT N 

iOO 1=0 

109 REM - D IS THE SIZE OF EACH INTERVAL 

iiO D=<B-A)/N 

lis REM " ADD UP THE AREA OF EACH TRAPEZOID 

lEO FOR J=A TO B STEP D 

130 I=H-FNC(J) 

140 NEXT J 

149 REM - COMPUTE INTEGRAL, PRINT 

150 I=<I-<FNC(A)4-FNC(B) )/cf )*D 
160 PRINT "INTEGRAL ="|I 

170 PRINT 

180 GOTO 50 

1 90 END 
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Integration: Gayssian Quadratyre 



This program approximates the definite integral of a function. You must provide the limits of integration and 
the number of intervals within the limits. 

The Interval of integration is divided Into equal subintervals. The definite integral is computed over each su- 
binterval using Gauss' formula. The integrals of the subintervals are summed to give the definite integral of the 
full interval. 

You must enter the function to be integrated before running the program. The function of x will be defined 

at line 30. For example, the function fix) -x^ will be entered as follows: 

30 DEFFMCCX)=Xf3 

Examples: 

Find the definite integral of the function fix) =x^ between and 2 with 10 and 20 subintervals. 

Find the definite integral of the function f fx ) = x "^ between 1 and 2 and 3 using 10 subintervals. 

^30 DEFFNCrX)=Xt3 
t RUH 

INTEGRATIONS GAUSSIAN QUADRATURE 

INTEGRATION LIMITS C LOWER .UPPER ) ? 0,8 
NUMBER OF INTERVALS? 10 
INTEGRAL « 4.000000087887 

CHANGE DATA AND RECOMPUTE? 

CG=NOv -isNEW INTEGRATION LIMITS-, S^^NEW NO. OF INTERVALS)? 8 

NUMBER OF INTERVALS? SO 

INTEGRAL = 4.000000087968 

CHANGE DATA AND RECOMPUTE? 

CO=NO, -1=NEW INTEGRATION LIMITS-, 2=NEUI NO. OF INTERVALS)? 

END PROGRAM 

S30 DEFFNCCX)=1/Xte 

I RUN 

INTEGRATION: GAUSSIAN QUADRATURE 

INTEGRATION LIMITS < LOWER. UPPER ) ? 1 .E 
NUMBER OF INTERVALS? 10 

INTEGRAL = .5000000034951 

CHANGE DATA AND RECOMPUTE? 

(0=N0, 1=NEW INTEGRATION LIMITS, E=NEW HO. OF INTERVALS)? 1 

INTEGRATION LIMITS C LOWER, UPPER)? B,3 

NUMBER OF INTERVALS? 10 

INTEGRAL « .16666666783S4 
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CHANGE DATA AMD RECQHPUTE? 

<0=N0, 1=NEUJ INTEGRATION LIMITS, E=NEU} N0« OF INTERVALS)? 

END PROGRAM 



PROGRAM LISTING 

iO PRINT "INTEGRATION: GAUSSIAN QUADRATURE" 

BQ PRINT 

30 REM - ENTER FUNCTION HERE (DEFFNC.(X ) = "FUNCTION " > 

39 REM - ABSCISSAS AND WEIGHT FACTORS FDR SO -POINT GUASSIAN INTEGRAT 
ION 

40 DATA .076526521 ,.15275333, .22778585 ,« 14317293 , ^37370609 
50 DATA .14209611 . .510867> .13168864, »63605368, ,11813453 

60 DATA «74633191, »101930ie, .83311637, .083276742, „31223443 

70 DATA .062672048 > «96397i93» ^04060143, »9931286 , .017514007 

80 PRINT "INTEGRATION LIMITS (LOWER , UPPER )" ? 

90 INPUT X»Y 

100 PRINT "NUMBER OF INTERVALS"? 

110 INPUT N 

120 S=<Y-X )/N/a 

130 T=X-i-S 

140 R=0 

149 REM ™ COMPUTE INTEGRAL FOR EACH SUBINTERVAL 

150 FOR 1=1 TO N 
IGO P=0 

169 REM - COMPUTE SUMMATION FACTOR FOR EACH SUBINTERVAL 

170 FOR J=l TO 10 
180 READ A,B 

190 P=P-^-B*(FNCCS*A+T)-i-FNC(T-S*A) ) 

200 NEXT J 

aiO RESTORE 

2S0 R=R^P^S 

E30 T=T-«-E-H-S 

240 NEXT I 

250 PRINT "INTEGRAL ="?R 

260 PRINT 

270 PRINT "CHANGE DATA AND RECOMPUTE?" 

280 PRINT "C0=N0. i=NEW INTEGRATION LIMITS, 2=NEW N0« OF INTERVALS)"? 

290 INPUT S 

300 IF S=l THEN 80 

310 IF S=E THEN 100 

320 END 
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Oerivatiwe 

This program calculates the derivative of a given function at a given point. 

You must enter the function being evaluated before you run the program. The function will be entered in a 
definition statement at line 30. For example, to evaluate the equation f{x)=x^ + cos ( x ) you would enter the 
following: 

30 DEFFNC<X)=Xfe-fCOS<X) 

Example: 

Calculate the derivative of the equation x ^ + cos ( x ) = when x = - s, x = 0, and x = 1. 

:30 DEFFNC (X )=XtE+ COS (X) 
: RUN 

DERIVATIVE 

(Ei--ITER X=99999 TO END PROGRAM) 
DERIVATIVE AT X=? -1 

IS"l.i585ci8756eS4 
DERIVATIVE AT X=? 

IS i.53600000E-09 
DERIVATIVE AT X=? I 

IS i.l585cf 8797696 
DERIVATIVE AT X=? 99999 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "DERIVATIVE" 

EO PRINT 

30 REM - ENTER DEFFNC(X) HERE 

40 PRINT "CENTER X=99999 TO END PROGRAM)" 

50 PRINT "DERIVATIVE AT X="; 

60 INPUT XI 

69 REM - TEST FOR END OF PROGRAM 

70 IF XI =99999 THEN 160 
BO D=0 

89 REM » CALCULATE DIFFERENCE QUOTIENTS FDR POINTS APPROACHING X 

90 FOR N=l TO 10 
100 D1=D 

110 X=Xl+.5tN 

lEO D= (FNC <X ) -FNC (Xi ) ) / (X~Xi ) 

130 NEXT N 

139 REM - APPROXIMATE DERIVATIVE OF FUNCTION AT X, PRINT 

140 PRINT " IS";E-*^D-D1 

149 REM - RESTART PROGRAM 

150 GOTO 50 
160 END 
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Roots of Quadratic Equations 



This program calculates the roots of a quadratic equation. The equation must be in the following form: 

ax ^ + bx + c = 
where a,b,c are real coefficients. 
The formula used to calculate the roots is: 

- b±iJb^-A^aoc 



root 



l^a 



Example: 

Compute the roots of the following equations: 
2x2 + x-1 =0 
x2 + 4x + 6=0 

: RUN 

ROOTS OF QUADRATIC EQUATIONS 

COEFFICIENTS A,B,C? a > i , -i 
ROOTS ^REAL): ~1 , „5 

MORE DATA a=VES, 0=NO)? 1 

COEFFICIENTS A,B,C? 1,4,6 

ROOTS (COMPLEX): -E + OR - 1 «414ai356a35 I 

MORE DATA (1=YES, 0~NO)? 
END PROGRAM 

PROGRAM LISTING 

10 PRINT "ROOTS OF QUADRATIC EQUATIONS" 

EO PRINT 

E9 REM ~ ENTER COEFFICIENTS A.BtC OF A*XtE -i- B^X -t- C 

30 PRINT "COEFFICIENTS A,B>C"; 

40 INPUT A,B,C 

50 S=EtE-4*A*C 

60 R=SQR(ABS<S)) 

69 REM - COMPLEX ROOTS? 

70 IF S<0 THEN 100 

79 REM - CALCULATE ROOTS, LABEL, PRINT 

80 PRINT "ROOTS (REAL): " ? C -B-R) / (E*A) ;'% " ? ( -B-t-R) / (a*A ) 
90 GOTO 110 

100 PRINT "ROOTS (COMPLEX)S " ? -B/ <a«A ) ? » 4- OR ~"?R/(E*A)r' I" 
110 PRINT 

119 REM - RESTART OR END PROGRAM? 
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120 PRINT "MORE DATA C1=Y£S» 0=NO) 

130 INPUT X 

140 IF X=i THEN 80 

150 END 
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Real Roots of Polynomials: Newton 



This program calculates real roots of a polynomial with real coefficients. You must give an estimate of each 
root. 

The calculations are performed using Newton's method for approximating roots of equations. The value of 
the error and derivative are included for each root calculated. 

The equation you enter is presently limited to a degree of 10. You may enter a larger degree of equation by 
altering statements 30 and 40 of the program according to the following scheme: 

30 DIH AiN+n ,BiN+n 
40 FOR I«i TO N+1 

where N = degree of equation. 

Example: 

Find the roots of 4x ^ - 2.5x ^ - x + 0.5 

SRUN 

REAL ROOTS OF POLS'MOMIALS^ NEWTON 

DEGREE OF EQUATION? 4 
COEFFICIENT A( )? s5 
COEFFICIENT A< 1 )? -1 
COEFFICIENT A< S >? -E.5 
COEFFICIENT A< 3 )? 
COEFFICIENl A( 4 )? 4 

GUESS? -»8 

ROOT ERROR DERIVATIVE 

«303576340a058 -i .40000000E-13 ~B«070a47000453 

ANOTHER VALUE a=YES, 0=N0>? 
ANOTHER FUNCTION <i=YES, QaNO)? 

END PROG RAH 

PROGRAH LISTING 

10 PRINT "REAL ROOTS OF POLYNOMIALS S NEWTON" 

aO PRINT 

E8 REM - LIMIT AC) AND BO TO N+l? WHEN THIS IS DONE, LOOP AT LINE 40 

59 REM - SHOULD BE SET TO TEST FROM I TO N+l 
30 DIM A<11) ,B<11) 

39 REM - INITIALIZE ARRAY VARIABLES 

40 FOR 1=1 TO 11 
50 A<I)=0 

60 B a ) »0 
70 NEXT I 

80 PRINT "DEGREE OF EQUATION"? 

90 INPUT N 

100 FOR 1*1 TO N+1 

109 REM - ENTER COEFFICIENTS IN ORDER OF LESSER TO HIGHER DEGREE 
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110 PRINT "COEFFICIENT Ar';l-ir')"? 

lEO INPUT A (I) 

130 NEXT I 

140 FOR 1=1 TO 10 

149 REH - CALCULATE COEFFICIENT OF DERIVATIVE OF POLYNOMIAL 

150 BCI)=A<I+1)*I 

160 NEXT I 

170 PRINT 

179 REH - INITIALIZE GUESS 

IBO PRINT "GUESS" ^. 

ISO INPUT X 

SOO Q=0 

ElO S=l 

eeo Fi=o 

eso Fo=o 

039 REH - COUNT ITERATIONS 

E40 QsQ-fl 

050 FOR 1=1 TO N-4-1 

S59 REM - CALCULATE VALUE OF FUNCTION 

060 FO=FO-i-A(I)*S 

069 REM - CALCULATE VALUE OF DERIVATIVE 

070 Fl=Fi4B<I)*S 
E80 S=S-^X 

090 NEXT I 

S99 REM - TEST FOR A ZERO DERIVATIVE; IF YES, STOP SEARCH. PRINT 

300 IF Fi=0 THEN 360 

309 REM - GET NEW GUESS USING PREVIOUS GUESS 

310 S=X-F0/F1 

319 REM - IF NEW GUESS ^ LAST GUESS THEN STOP SEARCH, PRINT 

300 IF X=S THEN 380 

309 REM - SAVE LAST GUESS 

330 X=S 

340 IF Q>100 THEN 490 

350 GOTO ElO 

360 PRINT "DERIVATIVE « AT X =";X 

370 GOTO ISO 

380 PRINT 

390 PRINT " ROOT"," ERROR" ./^ DERIVATIVE" 

400 PRINT X,F0,F1 

410 PRINT 

419 REM - RERUN TO FIND ANOTHER ROOT IN SAME FUNCTION? 

400 PRINT "ANOTHER VALUE <i=YES, 0=N0)"; 

430 INPUT A 

440 IF A=l THEN 170 

449 REM - RESTART OR END PROGRAM? 

450 PRINT "ANOTHER FUNCTION Ci=YES, 0=NO)"? 
460 INPUT A 

470 IF A=l THEN 30 

480 GOTO 550 

489 REM - PRINT CALCULATED VALUES AFTER 100 ITERATIONS; SEARCH 100 MORE? 

490 PRINT "100 ITERATIONS COMPLETED:" 
500 PRINT " X a"rx?" FCX) ~"?F0 

510 PRINT " CONTINUE a=YES, 0=NO)"? 

500 INPUT A 

530 IF A=l THEN EOO 

540 GOTO 400 

550 END 
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Roots of Foiynomials: Half-interwal Search 



This program calculates roots of polynomials within a given interval. The program first conducts a random 
search within the given interval for two points with opposite signs. If a change of sign is found, then the root is 
calculated by the half-interval search method. If there is no change of sign found, another interval will be asked 
for. 

Errors may result in this program for a couple of reasons. First, a root may be calculated when it should not 
be. This may happen if the lowest point is so close to zero that a root is found due to round-off error. Second, 
two roots may be so close together that the program never finds the opposite signs between them. The result in 
this case is that neither root is calculated. 

It is necessary to enter the equation before you run the program. The equation will be defined as a function 
of X at statement 30. For example, if you want to find roots of the function fix) = 4x^-2.5x^-x + .5, you will 

enter: 

30 DEFFNRCX)=4-»Xt4-a«5^XfE-X+.5 

Example: 

Find a root of the function fix) = 4x^-2. 5x^- x + .5. 

:30 DEFFNR^X)=4^Xf4~E.5^XfS-X-i-.5 

IRUH 

ROOTS OF POLYNOHIALSS HALF -INTERVAL SEARCH 

CTO END SEARCH ENTER 0,0) 

INTERVAL (LOWER, UPPER LIHIT ) ? -1,0 

NO CHANGE OF SIGN FOUND 

INTERVAL (LOWER, UPPER LIHIT)? 0.1 

ROOT s ,303579E010E68 

INTERVAL (LOWER, UPPER LIHIT)? O.Q 

END PROG RAH 



PROGRAH LISTING 

10 PRINT "ROOTS OF POLYNOHIALSS HALF -INTERVAL SEARCH' 

EO PRINT 

30 REM - ENTER FUNCTION C DEFFNR(X )= "FUNCTION " ) HERE 

40 DIH D(3) 

50 PRINT "(TO END SEARCH ENTER 0.0)" 

59 REH - ESTABLISH INTERVAL OF RANDOH SEARCH 

60 PRINT "INTERVAL (LOWER, UPPER LIHIT)"; 
70 INPUT AvB 

79 REH - TEST FOR USABLE LIMITS ENTERED 

80 IF A OB THEN lEO 

89 REM - END PROGRAM? 

90 IF A==0 THEN 430 

100 PRINT "—INTERVAL LIMITS CANNOT BE EQUAL—" 
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110 GOTO 60 

ISO IF A<B THEN 150 

130 PRINT "—LOWER LIMIT HUST BE ENTERED FIRST— -^ 

140 GOTO 60 

150 A1=SGN(FNR(A)) 

160 Bi=SGNCFNRCB)) 

169 REM ~ TEST FOR ROOT AT EITHER LIMIT 

170 IF A1«B1=0 THEM 360 

179 REM - TEST FOR OPPOSITE SIGNS AT INTERVAL LIMITS 

180 IF Al^BKO THEN E80 

189 REM - LOOP TO SEARCH 1000 NUMBERS FOR OPPOSITE SIGNS IN FUNCTION 

190 FOR 1=1 TO 1000 
eOO X=A+RND (E ) * (B~A ) 
aiO X1=SGN(FNRCX) ) 

ai9 REM - TEST FOR ROOT AT RANDOM NUMBER? IF YES, END SEARCH, PRINT 

eeo IF XI =0 THEN 400 

EEB REM - TEST FOR OPPOSITE SIGNS AT RANDOM NUMBER AND LOWER LIMIT 

E30 IF A1*X1<0 THEN E70 

E39 REM - TRY ANOTHER RANDOM NUMBER 

S40 NEXT I 

eSO PRINT "NO CHANGE OF SIGN FOUND" 

E60 GOTO 60 

069 REM - CHANGE OF SIGN FOUND; CALCULATE ROOT 

E70 B=X 

E78 REM - STORE POSITIVE POINT IN DCS). NEGATIVE POINT IN DCl) 

579 REM - DCl) AND DCS) BECOME INTERVAL LIMITS 

580 DCe-^Al)=A 
S90 DCE~Ai)=B 

e99 REM - CALCULATE MIDPOINT BETWEEN THE TWO LIMITS 

300 Y=«DCi)+DC3))/e 

310 Y1=SGNCFNR<Y) ) 

319 REM - TEST FOR ROOT AT MIDPOINT 

3E0 IF Yi=0 THEN 400 

3a9 REM - GET A NEW LIMIT TO CLOSE IN ON ROOT 

330 D<S-fYl)=Y 

339 REM - TEST FOR A VALUE CLOSE ENOUGH TO ZERO TO ASSUME A ROOT 

340 IF ABS(D(l)-DC3))/ABS(Da)+ABSCDC3) ))<5E-6 THEN 400 

349 REM - RETEST WITH NEW LIMITS 

350 GOTO 300 

359 REM - ROOT AT AN INTERVAL LIMIT? FIND WHICH LIMIT. PRINT 

360 IF A1=0 THEN 390 
370 Y=B 

380 GOTO 400 

390 Y=^A 

400 PRINT "ROOT «^'?Y 

410 PRINT 

419 REM - RESTART PROGRAM 

4E0 GOTO 60 

430 END 



Trig Polynomial 



This program solves a trigonometric function for a given angle. The function must be in the following form: 

f (x ) = 4 , sin ix) + B ^cosix) + ^ 2 sin (2x ) + F 2 sin (2x ) . » . + A^ sin (n^x) + B^ cos (/? -x ) 
where n == the number of pairs of coefficients. 

The coefficients of the function are to be entered in a data statement at line 30. The data statement will in- 
clude the number of pairs of coefficients ( n ) and the coefficients of the polynomial. It will be entered as follows: 

30 DATA n .A^.B^.A^.B^, .../I/? , Bn 

Example: 

Solve the following equation when the angle equals 45°, 90° and 105°: 

f{ X )=sin( X ) + 2 «cos( x )-2 «sin(2x ) + cos(2x ) + 5 <»sin(3x )-3 «cos(3x ) 

:30 DAT-A 3aia»~e»i.5,-3 
:run 

TRIG POLYMOMIAL 

(ENTER ANGLE=99999 TO END PROGRAH) 
ANGLE? 45 
F< 45 )= 3.095587494888 

ANGLE? 90 

F< 90 )=™E.8316809508E6 

ANGLE? 105 

Fi i05 ) =^-1.546848370549 

ANGLE? 99999 
END PROGRAH 



PROGRAH LISTING 

10 PRINT "TRIG POLYNOHIAL" 

eO PRINT 

30 REH - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE 

40 PRINT "(ENTER ANGLE=99999 TO END PROGRAM)" 

50 PRINT "ANGLE"? 

60 INPUT R 

69 REH - END PROGRAM? 

70 IF R=99999 THEN 180 

79 REM - GET NUMBER OF PAIRS OF TERMS IN POLYNOMIAL 

SO READ N 

89 REM - LOOP TO GET VALUES OF COEFFICIENTS FROM DATA TABLE 

90 FOR 1=1 TO N 
100 READ A,B 
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iuS REM - CALCULATE VALUE OF FUNCTION AT ANGLE X 

110 2=Z-hA^SIN ( I*R ) -fB*COS ( 1*R ) 

lEO NEXT I 

IBS REH - PRINT RESULTS 

130 PRINT "F< "?Rr' ) = ";z 

139 REH - PREPARE TO REREAD FUNCTION COEFFICIENTS 

140 RESTORE 
150 PRINT 
IbO Z=0 

169 REM - RESTART PROGRAM 

170 GOTO 50 
180 END 
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Sinnyitaneous Equations 



This program solves a system of linear equations. The number of unknown coefficients in each equation 
must equal the number of equations being solved. You must enter the coefficients of each equation. 

The dimension statement at line 30 limits the number of equations which may be solved. You may change 
this limit according to the following scheme: 

30 DIH A(/?,/?+;) 

where /? = the maximum number of equations. 

Example: 

Solve the following system of equations: 

X + 2x + 3x =4 

3x + 6x =1 

-3x + 4x - 2x=0 



:30 DIH A(3»4) 

: RUN 

SinULTANEOUS EQUATIONS 

NUMBER OF EQUATIONS? 3 

COEFFICIENT MATRIX: 

EQUATION 1 

COEFFICIENT 1 ? 1 
COEFFICIENT E ? E 
COEFFICIENT 3 ? 3 
CONSTANT? 4 

EQUATION S 

COEFFICIENT i ? 3 
COEFFICIENT S ? 6 
COEFFICIENT 3 ? 
CONSTANT? i 

EQUATION 3 

COEFFICIENT 1 ? -3 
COEFFICIENT S ? 4 
COEFFICIENT 3 ? -E 
COi-^iSTANT? 

X 1 ="»356 
X E = .344 

X 3 = 1 .EES 

END PROGRAM 
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PROG RAH LISTING 

10 PRINT "SIHULTANEOUS EQUATIONS" 

aO PRINT 

as REM - LIMIT AO TO A(R,R+1) WHERE R=MAX, NO. OF EQUATIONS 

40 PRINT "NUMBER OF EQUATIONS"? 

50 INPUT R 

60 PRINT "COEFFICIENT MATRIX:" 

70 FOR J=l TO R 

SO PRINT "EQUATION"? J 

90 FOR I==i TO R+i 

100 IF I=R-fl THEN 130 

iiO PRINT " COEFFICIENT"?!; 

lEO GOTO 140 

130 PRINT " CONSTANT"; 

140 INPUT AU,I) 

150 NEXT I 

160 NEXT J 

170 FOR J=l TO R 

178 REM - STATEMENTS ISO TO ESO FIND THE FIRST EQUATION WITH A 

179 REM - NON-ZERO COEFFICIENT FOR THE CURRENT COLUMN 
laO FOR I=J TO R 

190 IF A(I,J)<>0 THEN E30 

EOO NEXT I 

eiO PRINT "NO UNIQUE SOLUTION" 

ESO GOTO 440 

0E9 REM » STATEMENTS ESO TO 370 MOVE THAT EQUATION UP TO THE CURRENT ROW 

S30 FOR K=l TO R-fl 

S40 X=AU,K) 

ESO A(J,K)=Aa,K) 

E60 A<I,K)=X 

E70 NEXT K 

E79 REM - STATEMENTS E80 TO 310 GET A. 1 COEFFICIENT IN THE FIRST NON-ZER 

O COLUMN OF THE CURRENT ROW 

ESO V=l/A<JvJ) 

S90 FOR K=l TO R4-1 

300 A(J,K)=Y*A(J,K) 

310 NEXT K 

318 REM - STATEMENTS 3S0 TO 380 SUBTRACT THE CURRENT EQUATION FROM 

319 REM - THE OTHER ROWS 
3E0 FOR 1=1 TO R 

330 IF I=J THEN 380 

340 Y*-A(I,J) 

350 FOR K=l TO R+l 

360 A(I,K)=A(IvK)4^Y*A(J,K) 

370 NEXT K 

380 NEXT I 

389 REM - THIS PROCESS IS REPEATED FOR ALL EQUATIONS 

390 NEXT J 

400 PRINT 

409 REM - PRINT SOLUTIONS 

410 FOR 1=1 TO R 

4E0 PRINT "X»|I;"=";INT<A(I.R^l)#1000^«S)/i000 

430 NEXT I 

440 END 
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Linear Programming 



Courtesy: Harold Hanes 

Earlham College 
Richmond, Indiana 



This program uses the simplex method to solve a linear programming problem. You must provide the coeffi- 
cients of the objective function and the coefficients, relation and constant of each constraint. This information is en- 
tered in DATA statements before you run the program. 

After you load the program, enter the DATA statements according to the following Instructions. If you run more 
than one problem, remember to clear out all DATA statements from the previous problem before running the new 
problem. Our DATA statements begin at line 3000. 

1) Arrange your problem constraints according to their relation, so that the "less than" inequalities precede 
the equalities, which in turn precede the "greater than" inequalities. 

2) Type in as DATA the coefficients of the constraints, in the order the constraints were arranged in step 1 . Do 
not include coefficients for slack, surplus, or artificial variables. Do include a '0' coefficient for any variable 
that doesn't appear in a particular constraint. 

3) Type in as DATA the constants of the constraints (right-hand sides of the constraints) In the same order as 
you entered the rows of coefficients. These values cannot be negative. 

4) Type In as DATA the coefficients of the objective function. 

You must select whether the problem solution is to be a minimum or maximum value. The program also asks 
you to enter the total number of constraints and the number of variables to allow for each, and the number of "less 
than", "equal" and "greater than" constraints you are considering. 

The dimension statement at line 20 limits the number of variables and constraints you may enter. You can 
change these limits according to the following scheme: 

SO DIM fi>iC+2,V+C+G+n, B(C+2} 

where: C = number of constraints 
l/= number of variables 
G = number of "greater than" constraints 



Example: 

A manufacturer wishes to produce 100 pounds of an alloy which is 83% lead, 14% iron, and 3% antimony. 
He has available five alloys with the following compositions and prices: 

alloy 1 alloy 2 alloy 3 alloy 4 alloy 5 



90 


80 


95 


70 


30 


5 


5 


2 


30 


70 


5 


15 


3 








$6.13 


$7.12 


$5.85 


$4.57 


$3.96 



How should he combine these alloys to get the desired product at minimum cost? 
Note that this problem results in the following system of equations: 



v»^nr '*2"'" '*3"T- '^^J" ^5 

.90x, + .80x2 + -95x3 4- .70x4 -f .30x5 
.05x, -f .05x2 + -02x3 + .30x4 + .70x5 
.05x, + .15x2 + -03x3 -f + 

6.13x, +7.12x2 +5 85x3 +4.57x4 4-3.96x5 



100 

83 

14 

3 

Z (mln) 
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:RUN 

LINEAR PROGRAHHING 



TYPE '1' FOR MAXIHIZATION. OR '-1', FOR HINIMIZATION? -1 
TYPE NUHBER OF CONSTRAINTS ^ HUHBER OF VARIABLES? 4.5 
NUHBER OF LESS THAN, EQUAL, GREATER CONSTRAINTS? 0,4,0 



YOUR VARIABLES 1 THROUGH 5 
ARTIFICIAL VARIABLES 6 THROUGH 9 



ANSWERS I 

PRIHAL VARIABLES! 
VARIABLES VALUE 
a 10.4347886087 

3 47.8E608695654 

4 41 «7391304347B 
DUAL VARIABLES^ 

VARIABLE VALUE 

VALUE OF OBJECTIVE FUNCTION 544.8860069565 



END PROGRAH 



PROGRAH LISTING 

10 PRINT "LINEAR PROGRAHHING" 

15 PRINT 

19 REM - LINEAR PROGRAHHING, SIHPLEX METHOD 

EO DIM AC6,10>,B(6) 

30 PRINT 

40 PRINT "TYPE 'i' FOR MAXIMIZATION, OR '-1' FDR MINIMIZATION"? 

50 INPUT Z 

60 Z=-Z 

70 PRINT "TYPE NUMBER OF CONSTRAINTS, NUMBER OF VARIABLES"! 

80 INPUT H,H 

90 PRINT "NUMBER OF LESS THAN, EQUAL, GREATER CONSTRAINTS"? 

100 INPUT L,E,G 

110 IF M=L-fE+G THEN 140 

ISO PRINT "DATA ON CONSTRAINTS INCONSISTENT. TRY AGAIN «" 

130 GOTO 90 

139 REM - THIS IS THE INITIALIZATION ROUTINE 

140 C«N4-M-i-G 
150 C1=C-M 
160 CE=N-«-L4-G 
170 Ml=M-t-l 
100 Ma=M-fa 
190 PRINT 

EOO FOR 1=1 TO Ma 

eiO FOR Jsl TO CI 

aao A(i,j)so 

E30 NEXT J 
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£40 NEXT I 

E50 FOR 1=1 TO M 

ESO B<I)=0 

870 NEXT I 

ESO FOR 1=1 TO M 

ESO FOR J=l TO N 

300 READ A<I,J) 

310 IF I<=L THEN 330 

3S0 A (Ml ,J)=A<Mi ,J)-A<I,J) 

330 NEXT J 

340 IF I>L THEN 330 

350 B(I)=N+I 

350 A(I,N-i-I)=l 

370 GOTO 440 

380 B(I)=N4-G-fI 

330 A<I,N+G+I)=1 

400 IF I>L-fE THEN 4S0 

410 GOTO 440 

4E0 A(I,N+I-E)=-1 

430 A(M1,N+I-E)=1 

440 NEXT I 

450 FOR 1=1 TO M 

460 READ A<I,C1) 

470 NEXT I 

4S0 FOR J=l TO N 

490 READ A (MS, J) 

500 A(MS,J)=Z-*^A(ME,J) 

510 NEXT J 

5E0 PRINT 

540 PRINT "VOUR VARIABLES 1 THROUGH" ;N 

550 IF L=0 THEN 570 

560 PRINT "SLACK VARIABLES" ;N4-1 ; "THROUGH" ;N-4-L 

570 IF G=0 THEN 590 

580 PRINT "SURPLUS VARIABLES" ;N-5-L-fl ; "THROUGH" ; C 

590 IF L=M THEN 780 

600 PRINT "ARTIFICIAL VARIABLES" ; CE+l ; "THROUGH" ; C 

610 M3=M1 

6S0 G03UB 1040 

630 PRINT 

640 FOR 11=1 TO M 

650 IF B(I1)<=CS THEN 760 

660 IF Adl ,Cl)< = e.000Ol THEN 690 

670 PRINT "THE PROBLEM HAS NO FEASIBLE SOLUTION a" 

680 GOTO 3060 

690 FOR Jl=l TO Ca 

700 IF ABS(A(I1,J1 ))<=. 00001 THEN 750 

710 R=I1 

7S0 S=J1 

730 GOSUB 1860 

740 Jl =CE 

750 NEXT Jl 

760 NEXT II 

780 PRINT 

790 M3=Ma 

800 GOSUB 1040 
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830 PRINT 

840 PRINT "ANSWERS r* 

850 PRINT "PRIMAL VARIABLES S " 

860 PRINT "VARIABLES", "VALUE"' 

870 FOR J=l TO Ca 

880 FOR 1=1 TO H 

890 IF BCDOJ THEN 900 

900 PRINT J,ACI,Ci) 

910 I=H 

980 NEXT I 

930 NEXT J 

940 PRINT "DUAL VARIABLES:" 

950 PRINT "VARIABLE "."VALUE" 

960 IF L™0 THEN 1000 

970 FOR 1=1 TO L 

980 PRINT I.-Z*A<ME.N+I) 

990 NEXT I 

1000 PRINT "VALUE OF OBJECTIVE FUNCTION"? -Z*A« ME, CI ) 

1010 PRINT 

lOeO PRINT 

1030 GOTO 30 SO 

1038 REM - OPTIMIZATION ROUTINE 

1039 REM - FIRST PRICE OUT COLUMNS 

1040 P=-. 00001 
1050 FOR J=l TO CE 

10-60 IF A(M3.J)>=P THEN 1090 

1070 S=J 

1080 P=A<M3,J) 

1090 NEXT J 

1100 IF P=-, 00001 THEN 1440 

1110 GOSUB 1130 

llEO GOSUB lElO 

11S5 GOTO 1040 

liS9 REM - NOW FIND IaJHICH VARIABLE LEAVE BASIS 

1130 Q=l«E-^38 

1140 FOR 1^1 TO M 

1150 IF ACI,S)<=. 00001 THEN 1190 

1160 IF ACI. CD /A(I,S)>==Q THEN 1190 

1170 R=I 

1180 Q=A(I,C1)/A(I,S) 

1190 NEXT I 

ISOO RETURN 

ISIO IF Q=l.E-^38 THEN 1S40 

lESO GOSUB 1S60 

1E30 RETURN 

iS40 PRINT "THE SOLUTION IS UNBOUNDED »" 

1S50 GOTO 3060 

1E59 REM - PERFORM PIVOTING 

1E60 P=A<R,S) 

1S70 FOR 1=1 TO MS 

1E80 IF I=R THEN 1350 

1E90 FOR J=l TO CI 

1300 IF J=S THEN 1340 

1310 A<I,J)=ACI,J)-ACI,S)*ACR,J)/P 

13S0 IF ABSCA<I,J))>==«00001 THEN 1340 

1330 M1,J)-Q 
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1340 NEXT J 

1350 NEXT 1 

1360 FOR Jsi TO Ci 

1370 A<R,J)=A(R,J)/P 

1380 NEXT J 

1390 FOR 1=1 TO HE 

1400 ACI,S)=0 

1410 NEXT I 

1420 A«R,S)=1 

1430 B(R)=S 

1440 RETURN 

S996 REH - **ft DO THE FOLLOWING STEPS BEFORE RUNNING THE PROGRAM **« 

E997 REH - TYPE IN COEFFICIENTS OF '<','=', AND '>' CONSTRAINTS IN 
DATA STATEMENTS STARTING AT LINE 3000, A SEPARATE DATA STATEMENT 
FOR EACH CONSTRAINT (LINES 3000 - 3030 IN OUR EXAMPLE) 

£998 REM - TYPE IN CONSTANTS OF THE CONSTRAINTS IN A DATA STATEMENT 
FOLLOWING THE COEFFICIENT DATA, AND IN THE SAME ORDER AS THE CON 
STRAINT DATA WERE ENTERED <LINE 3040 IN OUR EXAMPLE) 

E999 REM - TYPE IN THE COEFFICIENTS OF THE OBJECTIVE FUNCTION IN A 

DATA STATEMENT (LINE 3050 IN OUR EXAMPLE) FOLLOWING THE CONSTANTS 
DATA 

3000 DATA 1,1.1 a a 

3010 DATA .9,.e,a95,.7, .3 

30E0 DATA .0.5, .05, .OE, .3 , .7 

3030 DATA a05 , . 15. .03 ,0 ,0 

3040 DATA 100,83,14,3 

3050 DATA 6.13,7 .IE ,5.85,4 .57 ,3«9S 

3060 END 
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I^atrix Addition. Sybtraction. Scalar Myitipiication 

This program adds or subtracts two matrices, or multiplies a matrix by a given scalar. You must input the 

value of each element of each matrix. To perform addition or subtraction the dimensions of the two matrices 
must be equal. 

The dimension of the matrices may be increased or decreased depending on the amount of memory availa- 
ble in your system. Statement 30 may be changed to: 

30 DIH ACX,y) , BiX.Y) 



where ( X, V ) is your limit on the dimension of the matrices. 

Example: 

Find the sum of the following matrices, then multiply the resultant matrix by 3. 



1 





-1 




-5 


-1 


2 


5 


8 


.5 




6 


-.1 





-1 


2 







3 


4 


-2 



: RUN 

MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION 



i=ADDITION 

E=SUBTRACTIOH 

3=SCALAR MULTIPLICATION 

WHICH OPERATION? i 

DIMENSION OF MATRIX <R>C)? 3»3 

MATRIX i: 



ROW i 










VALUE 


COLUMN 


1 


? 


1 


VALUE 


COLUMN 


2 


? 





VALUE 


COLUMN 


3 


? 


-1 


ROW E 










VALUE 


COLUMN 


1 


? 


5 


VALUE 


COLUMN 


a 


? 


8 


VALUE 


COLUMN 


3 


? 


.5 


ROW 3 










VALUE 


COLUMN 


1 


7 


™1 


VALUE 


COLUMN 


a 


? 


S 


VALUE 


COLUMN 


3 


? 





MATRIX e: 








ROW 1 










VALUE 


COLUMN 


1 


? 


-5 


VALUE 


COLUMN 


a 


? 


-1 


VALUE 


COLUMN 


3 


? 


a 


ROW E 










VALUE 


COLUMN 


1 


? 


6 


VALUE 


COLUMN 


a 


? 


*"" B 


VALUE 


C-OLUMN 


3 


? 





ROW 3 










VALUE 


COLUMN 


i 


? 


3 



-.i 
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VALUE COLUMN E ? 4 
VALUE COLUMN 3 ? -E 
-4- -1 1 
ii 7.9 „B 

s 6 -e 

MORE DATA? ( i=VES ,0=NO ) ? 1 
WHICH OPERATION? 3 
VALUE OF SCALAR? 3 



DIMENSION OF 


MATRIX <R,C)?-3,3 


MATRIX i^ 






RDM 1 








VALUE 


COLUMN 


i 


? -4 


VALUE 


COLUMN 


a 


? -1 


VALUE 


COLUMN 


3 


? 1 


ROW E 








VALUE 


COLUMN 


i 


? ii 


VALUE 


COLUMN 


a 


? 7«9 


VALUE 


COLUMN 


3 


? .S 


ROW 3 








VALUE 


COLUMN 


1 


? a 


VALUE 


COLUMf-l 


E 


? 6 


VALUE 


COLUMfvf 


3 


? -E 


-IE 


-3 3 




33 


E3.7 




i.5 


6 


18 -6 





MORE DATA? ( i=VES , 0=NO ) ? 
END PROGRAM 

PROGRAM LISTING 

iO PRINT "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION" 

EO PRINT 

E9 REM ~ ARRAYS SHOULD BE SET TO DIMENSIONS OF MATRICES 

30 DIM A (3,3) -. B(3,3) 

40 PRINT "i^ADDITION" 

50 PRINT "S=SUBTRACTION" 

60 PRINT "3=SCALAR MULTIPLICATION" 

r.9 REM "~ SELECT OPERATION BY ENTERING THE NUMBER (i~3) OF THE OPERATION 

70 PRINT "WHICH OPERATION"? 

80 INPUT D 

89 REM " TEST FOR ADDITION OR SUBRACTIDN 

90 IF D03 THEN iSO 

iOO PRINT "VALUE OF SCALAR"? 

ilO INPUT S 

iSO PRINT "DIMENSION OF MATRIX <R,C)"; 

i30 INPUT R,C 

138 REM - LOOP TO ENTER MATRIX VALUES 

139 REM - FOR SUBTRACTION, MATRIX E SUBTRACTED FROM MATRIX 1 

140 FOR K==l TO E 
150 IF K>S THEN 180 
ISO PRINT "MATRIX 1^" 
170 GOTO 190 

ISO PRINT "MATRIX E: " 
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190 FOR J=l TO R 

EOO PRINT "ROU}"?J 

aiO FOR 1=1 TO c 

ESO PRINT "VALUE COLUMN" ;l; 

E30 IF K=a THEN £60 

£40 INPUT A (J, I) 

£50 GOTO £70 

£60 INPUT B(J,I) 

£70 NEXT I 

£80 NEXT J 

£89 REH ~ ONLY ONE MATRIX USED FOR SCALAR MULTIPLICATION 

£90 IF D=3 THEN 310 

300 NEXT K 

309 REM - STATEMENTS 310 TO 410 PERFORM REQUESTED OPERATION AND PRINT RES 
ULTANT MATRIX 

310 FOR J=i TO R 
3£0 FOR 1=1 TO C 

330 IF DOE THEN 350 

340 B<J>I)=-B<J,I) 

350 IF D=3 THEN 380 

360 PRINT A<JvI)4B(J,I);" "? 

370 GOTO 390 

3S0 PRINT A(J.,I)*S?" "? 

390 NEXT I 

399 REM " ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

400 PRINT 
410 NEXT J 
4E0 PRINT 

4£9 REM " RESTART OR END PROGRAM? 

430 PRINT "MORE DATA? a=YES,0=NO) " ? 

440 INPUT D 

450 IF D=l THEN 70 

460 END 
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Matrix Multiplication 



This program multiplies two matrices. The first matrix is multiplied by the second. You must input the ele- 
ments of each matrix. 

In order for this operation to be performed the number of rows in the first matrix must equal the number of 
columns in the second matrix. 

The dimensions of the matrices are presently limited to 10 x 10. This limit may be increased or decreased by 
altering line 30 according to the following scheme: 

30 DIM A(X,y) , B<Z,X> 

where: {X,Y) = dimension of matrix 1 
( Z,X ) = dimension of matrix 2 

Example: 

Multiply matrix 1 by matrix 2. 



2 


-1 


4 


1 


2 


1 





1 


2 


-1 


2 


3 


-1 





-2 


2 


-1 


2 









2 


1 






■1 


1 


4 






3 





-1 






2 


1 


2 







:30 Din A(3.5) , 


, BiS: 


.3) 


: RUN 












MATRIX MULTIPLICATION 


DIMENSION OF 


MATRIX 


i <R,C>? 3,5 


DIMENSION OF 

M ATP TV < " 


MATRIX 


a <R,C)? Bv3 


ROUl i 


S As 










VALUE 


COLUMN 


1 


? 


E 




VALUE 


COLUMN 


a 


? 


-1 




VALUE 


COLUMN 


3 


? 


4 




VALUE 


COLUMN 


4 


? 


1 




VALUE 


COLUMN 


5 


? 


S 




ROW a 












VALUE 


COLUMN 


1 


? 


1 




VALUE 


COLUMN 


a 


? 







VALUE 


COLUMN 


3 


? 


i 




VALUE 


COLUMN 


4 


? 


a 




VALUE 


COLUMN 


5 


? 


-I 




ROW 3 












VALUE 


COLUMN 


1 


? 


B 




VALUE 


COLUMN 


a 


? 


3 




VALUE 


COLUMN 


3 


? 


-I 




VALUE 


COLUMN 


4 


? 
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VALUE COLUHN B ? ~E 



HATRix a: 








ROW 1 










VALUE 


COLUHN 


1 


? 


-a 


VALUE 


COLUHN 


E 


? 


"1 


VALUE 


COLUHN 


3 


? 


a 


ROW e 


COLUHN 


1 


"7 




VALUE 





VALUE 


COLUHN 


E 


? 


a 


VALUE 


COLUMN 


3 


? 


1 


ROW 3 










VALUE 


COLUHN 


1 


? 


-i 


VALUE 


COLUHN 


a 


9 


I 


VALUE 


COLUHN 


3 


? 


4 


ROW 4 










VALUE 


COLUMN 


i 


? 


3 


VALUE 


COLUMN 


a 


? 





VALUE 


COLUMN 


3 


? 


-1 


ROW 5 










VALUE 


COLUMN 


1 


? 


a 


VALUE 


COLUMN 


a 


? 


1 


VALUE 


COLUMN 


3 


? 


a 


-i 


a aa 






1 


-1 E 








-7 


1 -1 









END PROGRAM 



PROGRAM LISTING 

10 PRINT "MATRIX MULTIPLICATION" 

eo PRINT 

as REM - ARRAYS A AND B SHOULD BE SET TO DIMENSIONS OF MATRICES 

30 DIM Aaoao), B(ioao) 

40 PRINl "DIMENSION OF MATRIX 1 (R,C)"; 

50 INPUT Rl ,C1 

60 PRINT "DIMENSION OF MATRIX S (R.C)"? 

70 INPUT RE,Ca 

79 REM ■- # OF COLUMNS IN MATRIX 1 MUST EQUAL # OF ROWS IN MATRIX E 

80 IF Cl^RE THEN ilO 

90 PRINT "CANNOT BE MULTIPLIED; OTHER DIMENSIONS NECESSARY" 

100 GOTO 40 

109 REM - ENTER MATRIX VALUES 

110 PRINT "MATRIX 1^ " 
lEO FOR J=l TO Rl 
130 PRINT "ROW"; J 
140 FOR 1=1 TO Ci 

150 PRINT "VALUE COLUMN" ?!? 

160 INPUT A(Ja) 

170 NEXT I 

ISO NEXT J 

190 PRINT 

£00 PRINT "MATRIX Bl" 

SIO FOR J=l TO Re 
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eaO PRINT "ROW"; J 

e30 FOR I»i TO CE 

840 PRINT "VALUE COLUMN"?!? 

E50 INPUT BCJ,I) 

eeo NEXT I 

S70 NEXT J 

EBO PRINT 

S89 REH - PERFORH HATRIX HULTI PLICATION, PRINT RESULTANT HATRIX 

890 FOR 1=1 TO Rl 

300 FOR Jsl TO CS 

310 SsO 

aaO FOR K=l TO CI 

330 S=S-i-ACI»K)^BCK,J) 

340 NEXT K 

3S0 PRINT SI" ''; 

360 NEXT J 

369 REH - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

370 PRINT 
380 NEXT I 
390 END 
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Matrix inwersion 



This program inverts a square matrix. The inversion is performed by a modified Gauss-Jordan elimination 

method. 

The dimensions of the matrix are presently limited to 10 x 10. This limit may be increased or decreased by 

altering line 30 according to the following scheme: 



30 DIH AC/?,^), BiR.R) 
where R = number of rows (or columns) in the matrix. 



Example: 

Invert matrix A. 




■1 


.4 


J 


-3 





1 





.3 



I RUN 












MATRIX INVERSION 






DIMENSION OF 


MATRIX? 4 




MATRIX ELEMEi--ITSl 






Roy i 












VALUE 


COLUMN 


1 


? 


3 




VALUE 


COLUMN 


a 


? 


5 




VALUE 


COLUMN 


3 


? 


-I 




VALUE 


COLUMN 


4 


? 


»4 




ROW E 












VALUE 


COLUMN 


1 


? 


i 




VALUE 


COLUMN 


e 


? 


4 




VALUE 


COLUMN 


3 


? 


-.7 




VALUE 


COLUMN 


4 


7 


-3 




ROW 3 












VALUE 


COLUMN 


1 


? 







VALUE 


COLUMN 


e 


? 


-£ 




VALUE 


COLUMN 


3 


? 







VALUE 


COLUMN 


4 


? 


1 




ROW 4 












VALUE 


COLUMN 


1 


•p 


-a 




VALUE 


COLUMN 


a 


? 


6 




VALUE 


COLUMN 


3 


? 







VALUE 


COLUMN 


4 


? 


u3 




.654 


-.935 


» 


-.191 


1«40000000E-0S 


.198 


-".E83 


- 


" a « 


103 


.156 


.363 


-1.955 


-4„E53 


-«4E5 


«397 


-.567 




.793 


.31E 


END PROGRAM 
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PROGRAH LISTING 

10 PRINT "MATRIX INVERSIUN" 

aO PRINT 

09 REM - A n AND B i ) SHOULD DOTH BE SET TO THE DIMENSIONS UF THE MAT 

RIX 

30 DIM A<iOaO)* B<10>10) 

39 REM - MATRIX IS SQUARE SO ONLY ONE DIMENSION IS NEEDED 

40 PRIN"! "DIMENSION OF MATRIX"? 
50 INPUT R 

GO PRINT "MATRIX ELEMENThi^' 

69 REM - ENTER MATRIX ELEMENTS 

70 FOR J=i TO R 
80 PRINT "ROW"? J 
90 FOR 1=1 TO R 

100 PRINT "VALUE COLUMN" ;I; 

110 INPUT A<Ja) 

lEO NEXT I 

130 B(JvJ)=l 

140 NEXT J 

145 REM - STATEMENIS 150 TO 420 INVERT MATRIX 

150 FOR J=l TO R 

160 FOR I=J TO R 

170 IF A(I,J)<>0 THEN ElO 

180 NEXT I 

190 PRINT "SINGULAR MATRIX" 

£i00 GOTO 500 

aiO FOR K=i TO R 

aao s=A<j>K) 

E30 AU,K)=Aa,K) 

a40 A<I>K)=3 

E50 S=B(J,K) 

E60 B(J,K)=BCI;K) 

E70 B<I,K)=S 

EBO NEXT K 

E90 T=1/AU,J) 

300 FOR Ks=l TO R 

310 A«J,K)=T*A<J,K) 

380 B<JJ<)=T*BCJ>K) 

330 NEXT K 

340 FOR L=l TO R 

350 IF L=J THEN 410 

360 T=-"A(L>J) 

370 FOR K=l TO R 

380 A(L,K)=A(L,K)4T*A(J,K) 

390 B<L,K)=BCL,K)-*-T^B(J,K) 

400 NLXT i< 

410 NEXT L 

4aO NEXT J 

430 PRINT 

439 REM - PRINT RESULTANT MATRIX 

440 FOR 1=1 TO R 
450 FOR J=l TO R 

459 REM - ROUND OFF, PRINT 

460 PRINT INT<B(I>J)*i000-^-..5)/1000;" "? 
470 NEXT J 

479 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT LINE 

480 PRINT 
490 NEXT 1 

500 END ^^g 



Permutatioiis and Combinations 



This program computes the number of permutations and combinations of N objects taken D at a time. 

Examples: 

How many permutations and combinations can be made of the 26 letters of the alphabet, taking five at a 
time? 

How many different ways can 12 people sit on a bench if there is only room for two at a time? 

IRUH 

PERHUTATIONS AND COHBINATIONS 

(ENTER TO END PROGRAM) 
TOTAL r4UHBER OF OBJECTS? E6 
SIZE OF SUBGROUP? 5 

7893600 PERMUTATIONS 

65780 COMBINATONS 

TOTAL NUMBER OF OBJECTS? IE 
SIZE OF SUBGROUP? E 

13E PERMUTATIONS 

66 COMBINATONS 

TOTAL NUMBER OF OBJECTS? 
END PROGRAM 

PROGRAM LISTING 

10 PRINT "PERMUTATIONS AND COMBINATIONS" 

EO PRINT 

30 PRINT "< ENTER TO END PROGRAM)" 

40 PRINT "TOTAL NUMBER OF OBJECTS"? 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN E80 

70 PRINT "SIZE OF SUBGROUP"? 

SO INPUT D 

89 REM - SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP 

90 IF D<=N THEN 130 

100 PRINT "SUBGROUP TOO LARGE" 

110 PRINT 

lEO GOTO 40 

iS9 REM - LINES 130 TO SOO COMPUTE PERMUTATIONS 

130 P=l 

140 C=l 

150 FOR I=N"D+1 TO N 

159 REM - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 

160 IF 9.9E6E/I>=P THEN 190 

170 PRINT "MORE THAN 9.9E6E PERMUTATIONS" 
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180 GOTO aso 

190 ps:P*l 

EOO NEXT I 

EOS REM - COMPUTE INTERMEDIATE FACTORIAL FOR COMBINATIONS 

EiO FOR J=S TO D 

EEO C=C«J 

E30 NEXT J 

£40 PRINT P; "PERMUTATIONS" 

E50 PRINT P/C? "COMBINATOHB" 

E60 PRINT 

E69 REM - RESTART PROGRAM 

E70 GOTO 40 

E80 END 
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Mann-Whitney U Test 



This program performs the Mann -Whitney U test on samples from two populations. 

The dimension statement on line 30 limits the size of the samples. You can increase or decrease the dimen- 
sion limits according to the following scheme: 

30 DIH X<M) , Y</V) 

where: M == maximum size of first sample 

N = maximum size of second sample 

Example: 

A group of ten women and a group of ten men were asked to rate the flavor of a frozen T.V. dinner on a 
scale of one to ten. The table below lists the scores. Count the number of times the women's scores are lower 
than the men's, and vice-versa. 

women 

men 

ISO DIf4 X<10) ,Y(iO) 

: RUM 

MANN-WHITNEY U-TEST 



1 


3 


4 


3 


6 


8 


9 


7 


8 


4 


7 


9 


8 


5 


10 


9 


10 


6 


5 


2 



SAMPLE 1 : 






SIZE?- 


IC 


> 




DATA 


1 


? 


1 


DATA 


a 


? 


3 ^ 


DATA 


3 


? 


4 


DATA 


4 


? 


3 


DATA 


5 


? 


6 


DATA 


6 


? 


8 


DATA 


7 


? 


9 


DATA 


8 


? 


7 


DATA 


9 


? 


8 


DATA 


10 ? 4 


SAMPLE a : 






SIZE? 


IC 


i 




DATA 


1 


? 


7 


DATA 


a 


? 


9 


DATA 


3 


? 


8 


DATA 


4 


? 


5 


DATA 


5 


? 


10 


DATA 


6 


? 


9 


DATA 


7 


? 


10 


DATA 


8 


? 


6 


DATA 


9 


? 


5 


DATA 


10 


? E 



FIRST SAMPLE PRECEDING, U = 70 
SECOND SAMPLE PRECEDING, U = 30 

END PROGRAM 
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PROGRAM LISTING 

10 PRINT "MANN-WHITNEY U-TEST" 

EO PRINT 

£9 REM - SET MAXIMUM SAMPLE SIZE TO X(M),Y<N) (WHERE M=MAXIMUM SIZE 

F SAMPLE 1, N=MAXIMUM SIZE OF SAMPLE S) 

30 DIM X<a5),Y(a5) 

40 DIM N<a) 

49 REM - INPUT THE TWO SAMPLES 

50 FOR 1=1 TO a 

60 PRINT "SAMPLE " ; I ; " ' " 

70 PRINT " SIZE"? 

80 INPUT N<I) 

90 FOR J=i TO N(I) 

100 PRINT " DATA"; J? 

110 INPUT Y<J) 

laO NEXT J 

1E9 REM - SORT EACH SAMPLE 

130 FOR J=l TO NCI) 

140 FOR K=i TO N(I)-J 

150 C=sYCK) 

170 IF YCKXYCK4-1) THEN eOO 

180 Y<K)=Y<K'4-i) 

190 Y(K+1>=C 

EOO NEXT K 

aiO NEXT J 

EEO PRINT 

aa9 REM - TRANSFER FIRST SAMPLE TO X-ARRAY 

aSO IF I=a THEN e70 

E40 FOR J=sl TO NCI) 

E50 XCJ)=YCJ) 

E60 NEXT J 

370 NEXT I 

a79 REM - ADD UP RANKS 

S80 R«l 

S90 1=0 

300 J=0 

310 1=14.1 

3aO J«J4-1 

330 IF I>NC1) THEN 580 

340 IF J>NCa) THEN SaO 

350 IF XCIXYCJ) THEN 6E0 

360 IF YCJXXCI) THEN 590 

369 REM - LINES 370-570 HANDLE EQUAL SCORES FROM BOTH SAMPLES 

370 K^a 
380 M«I 
390 L=J 

400 R1«E*R4-1 

410 RsR-i-a 

4E0 I-Ii-l 

430 J«J+l 

440 IF I>NC1) THEN 480 

450 IF XCDOXCI-i) THEN 480 

460 1=1-8-1 

470 GOTO 510 

480 IF J>HCe) THEN 550 
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490 IF Y(J)<>Y(J"1) THEN 550 

BOO JsJ-fl 

510 Rl=Ri-i-R 

5E0 R=R+1 

530 K=K"t-l 

54d GOTO 440 

S50 X=X+CI-H)^Ri/K 

560 ysY4-CJ-L)*Rl/K 

570 GOTO 330 

580 IF J>NCe) THEN 660 

590 Y=Y-5-R 

600 J=J+1 

610 GOTO 640 

SSO X=X+R 

630 I=I-M 

640 R=R+1 

650 GOTO 330 

659 REM - U1=MUHBER OF-TIHES SAHPLE 1 SCORES PRECEDE SAMPLE E SCORES 

660 Ul =N C D^N Ce ) +N C 1 )* CM C 1 ) "^1 ) /E-X 

669 REH - UE=NUriBER OF-TIHES SAHPLE E SCORES PRECEDE SAHPLE 1 SCORES 

670 ue=Nci)^Nca)+Nca)*cNce)4-i)/e-Y 

680 PRINT 

690 PRINT "FIRST SAMPLE PRECEDING. U «";Ui 

700 PRINT "SECOND SAMPLE PRECEDING. U «";Ue 

710 END 
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Mean. Variance. Standard Deviation 



This program calculates the arithmetic mean, variance and standard deviation of grouped or ungrouped 
data. The data may represent the entire population or just a sample. 



Examples: 

There are ten people in a hotel lobby, aged 87, 53, 35, 42, 9, 48, 51, 60, 39 and 44. What would the mean, 
variance and standard deviation of the ages of all the people in the hotel be using the people in the lobby as a 
sample? 

Find the mean, variance and standard deviation of the ages of the cream cheese on a market shelf. The table 
below lists the age distribution of 50 packages. Assume the table shows the store's entire inventory. What if it is 
only a sample of the inventory? 



age 


1 


2 


3 


4 


5 


6 


quantity 


15 


10 


9 


6 


7 


3 






cream cheese 







:R\JH 

HEAMv VARIANCE, STANDARD DEVIATION 

WHICH METHOD (0=POPULATION, 1=SAMPLE ) ? 1 
KIND OF DATA (0=GROUPED a=UNG?<OUPED ) ? 1 
NUMBER OF OBSERVATIONS? 10 
ITEM 1 ? 87 

? 53 
? 35 
? 4E 
? 9 
? 48 
? 51 
? 60 
? 39 
? 44 



ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 8 
ITEM 9 
ITEM 10 



E 
3 

4 

5 
6 
7 



MEAN 

46.8 



VARIANCE STANDARD DEVIATION 
389.7333333333 19«741664908 



MORE DATA (i=VES, 0=N0)? 1 



WHICH METHOD < DEPOPULATION , 1 ^SAMPLE ) ? 
KIND OF DATA (0=GROUPED a=UNGf^QUPED ) ? 
NUMBER OF OBSERVATIONS? 6 

ITEMv FREQUENCY 1 ? 1,15 
ITEM, FREQUENCY S ? 0,10 
ITEMv FREQUENCY 3 ? 3,9 
ITEM, FREQUENCY 4 ? 4,6 
ITEM, FREQUENCY 5 ? 5»7 
ITEM, FREQUENCY 6 ? 6,3 



MEAN 

E=78 



VARIANCE 

E»5716 



STANDARD DEVIATION 
1«6036S090ES 
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HORE DATA ClsYES^ 0=N0)? 1 

WHICH METHOD <0sPOPULATION a=SAHPLE ) ? i 

KIND OF DATA <0^GROUPED a=UMGWOUPED )? 

MUHBER OF OBSERVATIONS? 6 

ITEM» FREQUENCY i ? 1 ,15 

ITEH, FREQUENCY E ? 8,10 

ITEH. FREQUENCY 3 ? 33 

ITEHt FREQUENCY 4 ? 4,6 

ITEH. FREQUENCY 5 ? 5»7 

ITEH, FREQUENCY 6 ? 6.3 

HEAN VARIANCE STANDARD DEVIATION 

e.7S E.6S408163E653 l«Si99017355 

HORE DATA (i=YES, O^NO)? 

END PROG RAH 



PROGRAM LISTING 

10 PRINT "HEAN, VARIANCE. STANDARD DEVIATION" 

eo PRINT 

30 PRINT "WHICH METHOD C ^POPULATION ,1 ^SAMPLE )" ; 

40 INPUT S 

50 PRINT "KIND OF DATA IO=GRaUPED a-UNGROUPED) " ; 

60 INPUT K 

70 PRINT "NUHBER OF OBSE WAT IONS " S 

80 INPUT N 

90 R=0 

100 H=0 

110 P=0 

lEO IF K=l THEN E30 

laS REM - FOR GROUPED DATA 

130 FOR 1=1 TO N 

140 PRINT "ITEH, FREQUENCY" U? 

150 INPUT A,B 

159 REM - ACCUMULATE ENTERED VALUES 

160 R=R-f-B«A 

169 REM - ACCUMULATE 1NTE?<MEDIATE VALUES FOR VARIANCE 

170 P=P-i-B 
ISO M=M-fB*Ata 
190 NEXT I 

199 REM - CALCULATE MEAN AND VARIANCE 

EOO R=R/P 

SiO V=<M-P-»RtS)/<P-SI 

El 9 REM - PRINT RESULTS 

EEO GOTO 310 

SS9 REM - FOR UNGROUPED DATA 

E30 FOR I«i TO N 

E40 PRINT "ITEM"; II 

£50 INPUT D 

E59 REM - ACCUMULATE ENTERED VALUES 

£60 P=P4-D 

S69 REM - ACCUMULATE INTERMEDIATE VALUES FDR VARIANCE 

870 M=M-«-DfS 
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£80 NEXT I 

ES9 REM - CALCULATE MEAN AND VARIANCE. PRINT 

890 R*P/N 

300 V= (M-N*R tE ) / <N-S ) 

310 PRINT 

319 REM - PRINT RESULTS 

3E0 PRINT "MEAN", "VARIANCE", "STANDARD DEVIATION' 

330 PRINT R,V,SQR«V) 

340 PRINT 

349 REM - RESTART OR END PROGRAM? 

350 PRINT "MORE DATA «i=^VES, 0=N0)"; 
360 INPUT S 

370 IF S=i THEN BO 

380 END 
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Geometric Mean and Dewiation 



This program computes the geometric mean and standard deviation of a set of data. 

Example: 

Find the geometric mean and standard deviation of 3, 5, 8, 3, 7, 2. 

I RUM 

GEOHETRIC MEAN AND DEVIATION 

(TO END PROGRAM ENTER OBSERVATIONS) 

NUMBER OF OBSERVATIONS? 6 

ITEM 1 ? 3 

ITEM E ? 5 

ITEM 3 ■? 8 

ITEM 4 ? 3 

ITEM 5 ■? 7 

ITEM 6 ? E 

GEOMETRIC MEAN = 4.140680833735 

GEOMETRIC DEVIATION = i .7E368956496i 

NUMBER OF OBSERVATIONS? 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "GEOMETRIC MEAN AND DEVIATION" 

SO PRINT 

30 PRINT MTO END PROGRAM ENTER OBSERVATIONS)" 

40 PRINT "NUMBER OF OBSERVATIONS"; 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN EOO 

69 REM - C0MPU1E WHICH Ri OT TO USE 

70 P=l/N 
80 M=l 

90 FOR 1=1 TO N 

100 PRINT "ITEM"? I? 

110 INPUT D 

119 REM - ITERATIVELY COMPUTE MEAN 

lEO M^M*DtP 

1E9 REM - ACCUMULATE INTERMEDIATE TERM FDR DEVIATION 

130 Q=Q-t-LOGCD)tS 

140 NEXT I 

149 REM - COMPUTE DEVIATION 

150 R=EXP(SQR(Q/<N-1)~(N/<N-1)*(L0G(M) JfE) )) 
160 PRINT "GEOMETRIC MEAN =";M 

170 PRINT "GEOMETRIC DEVIATION =";R 

180 PRINT 

1B9 REM - RESTART PROGRAM 

190 GOTO 40 

eOO END 
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Binomial Distribution 



This program calculates the probability of obtaining a given nunnber of successes in a given number of Ber- 
noulli trials. You must provide the probability of success on a single trial. 

Examples: 

What is the probability of getting three heads in five tosses of a fair coin? 

What is the probability that in five rolls of a fair die, a one (1) appears twice? 

: RUN 

BINOMIAL DISTRIBUTION 

<T0 END PROGRAM ENTER 0) 
NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? 3 

PROBABILITY OF SUCCESS? «5 

PROBABILITY OF 3 SUCCESSES IN 5 TRIALS = .3124999999998 

NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? E 

PROBABILITY OF SUCCESS? .166666G67 

PROBABILITY OF E SUCCESSES IN 5 TRIALS = el607510E9S571 

NUMBER OF TRIALS? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "BINOMIAL DISTRIBUTION" 

EO PRINT 

30 DIM M<3) 

40 PRINT "(TO END PROGRAM ENTER 0)" 

BO PRINT "NUMBER OF TRIALS"? 

60 INPUT N 

70 IF N=0 THEN S70 

SO PRINl "EXACT NUMBER OF SUCCESSES"? 

90 INPUT X 

100 PRINT "PROBABILITY OF SUCCESS"? 

110 INPUT P 

119 REM - COMPUTE THE FACTORIALS 

lEO M<l)sN 

130 M<S)=X 

140 M(3)=N-X 

150 FOR 1=1 TO 3 

ISO IF M<I)=0 THEN EEO 

170 A=l 

180 FOR J=l TO M<I) 

190 A=A*J 

EOO NEXT J 

SiO M<I)=LOG(A) 
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EEO NEXT I 

B£B REH - USING THE COMPUIED FACTORIALS, COMPUTE PROBABILITY 

eSO R=EXP U1 < 1 ) -H (E ) ~H (3 ) -^X^LOG < P ) + <N-X ) *LOG il-P)) 

S40 PRINT "PROBABILITY OF " ? X ? "SUCCESSES IN " ? N ; "TRIALS = " ; R 

£50 PRINT 

E60 GOTO 50 

£70 END 
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Poisson Distribution 



Using the Poisson distribution this program calculates the probability of an event occurring a given number 
of times. You must know the expected frequency of the event. 

Example: 

2000 people are injected with a serum. The probability of any one person having a bad reaction is .001. Thus 
we can expect two (.001 '2000=2) individuals will suffer a bad reaction. What is the probability that four people 
will have bad reactions? Only one person? 

I RUN 

POISSON DISTRIBUTION 

(TO END PROGRAM ENTER 0) 

CALCULATED FREQUENCY? E 

TEST FREQUENCY? 4 

PROBABILITY OF 4 OCCURRENCES = S.02B35aaiE-0a 

CALCULATED FREQUENCY? E 

TEST FREQUENCY? 1 

PROBABILITY OF 1 OCCURRENCES = .870670566473 

CALCULATED FREQUENCY? 

END PROGRAM 

PROGRAM LISTING 



10 


PRINT "POISSON DISTRIBUTION" 


EC 


PRINT 


30 


PRINT "(TO END PROGRAM ENTER 0) 


40 


PRINT "CALCULATED FREQUENCY"; 


50 


INPUT L 


59 


REM - END PROGRAM? 


hO 


IF L=0 THEN 180 


70 


PRINT "TEST FREQUENCY"! 


SO 


INPUT X 


89 


REM - COMPUTE FACTORIAL 


90 


A=l 


100 


FOR 1=1 TO X 


110 


A=A*I 


ISO 


NEXT I 


las 


REM - COMPUlE PROBABILITY 


130 


A=LOG(A> 


140 


A=EXP ( -L4X*L0G (L ) -A > 


150 


PRINT "PROBABILITY -OF" ;X? "OCCUPJ 


160 


PRINT 


169 


REM - RESTART PROGRAM 


170 


GOTO 40 


180 


END 



;a 
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Mormai Distribution 



This program calculates the probability and frequency of given values on a standard normal distribution 
curve. You can use non-standard variables if you know the mean and standard deviation. 




Standard normal distribution 

The shaded area represents the probability of x . k corresponds to the frequency of x 
The normal probability is approximated using the following formula: 

probability = 1 - r{a ^t -i- a 2i^ + a ^t^) -f efx) 



where: a 



^2 = 
S3 = 

r = 



.4361836 
-.1201676 
.9372980 

(e-^'/2){27r)-'/2 
(1 + .3326x)- ^ 



I e(x)| < 10-s 

Examples 

The mean weight of the male students at a college is 150 pounds. The standard deviation is 15 pounds. If 
the weights are normally distributed, what is the probability that a student weighs between 150 and 180 pounds? 
Between 130 and 150 pounds? 

I RUi-'! 

NORMAL D I ST R I BUT ION 

( =STANDARD , 1 =NON -STANDARD ) 
UJHICH TYPE OF VARIABLE? 1 
MEAN? ISO 
STANL^ARD DEVIATION? 15 

TO END PROGRAM ENTER ■x>93999 
X ='^ 180 

FREQUENCY = 5 .39909665E-0e 
PROBABILITY = .977^41189885 



X ="> 130 

FREQUENCY = 
PROBABILITY 



=16401007467Sa 
= ,908798074993 



■■1 99999 



END PROGRAM 



128 



PROGRAH LISTING 



iO 

BO 

30 

40 

50 

60 

•S3 

70 

80 

90 

100 

110 

ISO 

130 

140 

150 

160 

170 

179 

180 

189 

190 

EOO 

aio 

E19 
EEO 
E30 

S39 
S40 
S50 

aso 

S70 

sso 

E90 



PRINT 
PRINT 
PRINT 

PRINT 
INPUT 

IF S=0 

REH " 

PRINT 

INPUT 

PRINT 

INPUT 

GOTO 

S=i 

PRINT 

PRINT 

PRINT 

INPUT 



"NORMAL DISTRIBUTION" 

" ( 0=STANDARD . 1 =N ON -STANDARD ) 

"WHICH TYPE OF VARIABLE"? 
S 

THEN ISO 



LINES 70-110 REQUEST 

"HEAN"; 

M 

"STANDARD DEVIATI ON " ; 

S 
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' NON-STANDARD' VARIABLE DATA 



"TO END PROGRAM ENTER X=99999" 

"X ="; 

V 

IF Y =99999 THEN S90 

REM - ADJUST FOR NON-STANDARD VARIABLES 
Y=ABS( (Y-M)/S) 

REM - COMPUTE FREQUENCY iV COORDINATE) 
R=EXP ( -( Yf S) /S ) /S «5066SeE746 
PRINT "FREQUENCY =";R 
2=Y 

REM - APPROXIMATE PROBABILITY (AREA UNDER CURVE) 
Y==1/(H-«33S67-»ABS<Y) ) 

T=l-R*( .4361B36*Y-.lS01G76*YfS4-.937S9B*Yt3) 
REM - ADJUST FOR NEGATIVE VARIABLES 
IF Z>=0 THEN E60 
T=l-T 

PRINT "PROBABILITY =";T 
PRINT 
GOTO 150 
END 
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Chi-sqyare Distribution 



This program calculates the tail-end value for points on a chl-square ( X ^ ) distribution curve. You must pro- 
vide the value of X ^ and the degrees of freedom. 




X2 

Chi-square distribution 



The shaded area represents the tail-end value of X ^. 

The X ^ distribution function is calculated using the following formulas: 

fX2)(v + 1)/2 oe-xV2 / 2 



with V odd, tail-end value == 1 - 



1 -3 -B... - ¥ 



X^TT 



with V even, tail-end value ~ 1 - 



iX^)v/2.e'xy2 



2 ^A " .. .¥ 
where: v = degrees of freedom 



{X^)m 



oo 

Z « 1 -f 2 — -~ 

m = 1 {¥ +2) ^{¥ +A) - ...{¥ +2m) 

Since the summation in the calculation of Z cannot actually extend to infinity, we stop summation when the 
next term is less than a chosen level of precision. The computational precision is limited to approximately 10"^. 

Example: 

Of a group of 168 people who complained they did not sleep well, 54 were given sleeping pills and the re- 
mainder received placebos. They were later asked whether or not the pills had helped them sleep. The X ^ statistic 
for this study was computed to be 2.571108 with one degree of freedom. What is the tail-end value? 



i RUM 

CHI -SQUARE DISTRIBUTION 

CTO END PROGRAM ENTER 0) 
DEGREES OF FREEDOM? i 

CHI -SQUARE? E. 57 11 08 

TAIL END VALUE = « 108831484618 

DEGREES OF FREEDOM? 
END PROGRAM 
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PROGRAH LISTING 

10 PRINT "CHI -SQUARE DISTRIBUTION" 

eo PRINT 

30 PRINT "<T0 END PROGRAH ENTER 0?" 

40 PRINT "DEGREES OF FREEDOH"? 

50 INPUT V 

60 IF VxO THEN £80 

70 PRINT "CHI -SQUARE "I 

80 INPUl W 

89 REH - RsTHE DENOMINATOR PRODUCT 

90 R=l 

100 FOR I=V TO e STEP -a 

110 R=R*I 

lEO NEXT I 

1E9 REH - K«THE NUMERATOR PRODUCT 

130 K=Wf i INT ( « V+i ) /a ) )^EXP i -m/B ) /R 

139 REM - THE PI FACTOR IS USED ONLY WHEN DEG » FREEDOM ARE ODD 

140 IF INT«V/S)=V/E THEN 170 
150 J=SQR (E/W/3 . 141598653599 ) 
160 GOTO 180 

169 REM - L (SUMMATION FACTOR) CALCULATED LINES 170 -£40 

170 J«l 
180 L«l 
190 M=l 
EOO V=V-i-a 
£10 M=M*W/V 

£19 REM - CHECK FOR END OF SUMMATION 

EEO IF M<»000000i THEN E50 

£30 L»L-fM 

£40 GOTO EOO 

£50 PRINl "TAIL END VALUE ="U~J*K*L 

£60 PRINT 

£70 GOTO 40 

£80 END 



OPTION 

You may wish to compute the percentile rather than the tail-end value. This value corresponds to the 
unshaded area in the figure above. The program changes necessary are listed following the example below. 

Example: 

What is the percentile in the example above? 

I RUN 

CHI -SQUARE DISTRIBUTION 

(TO END PROGRAM ENTER 0) 

DEGREES OF FREEDOM? i 
CHI -SQUARE? £.571108 
PERCENTILE » .8911 6851 538E3 

DEGREES OF FREEDOM? 

END PROGRAM 
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PROGRAM LISTING 

1 REM - OPTION S50 

10 PRINT "CHI -SQUARE DISTRIBUTION" 

m 
e 

@ 

e40 GOTO eoo 

850 PRINT "PERCENTILE ss" ; j-i^K«L 

E60 PRINT 

870 GOTO 40 

880 END 
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Ciii-sqyare Test 



This program calculates the chi-square ( X ^ ) statistic and degrees of freedom associated with a given con- 
tingency table. The expected value for each cell and X ^ contribution from each cell are also printed. 

The dimension statement at line 30 limits the size of the contingency table. You can change the dimensions 
according to the following scheme: 

30 DIH V1C/?«C), VBiC), ^iR) 

where: R = number of rows in the contingency table 

C = number of columns in the contingency table 



Example: 

Of a group of people who complained they could not sleep well, some were given sleeping pills while others 
were given placebos. Later they were asked whether or not the pills had helped them sleep. The results are 
detailed in the table below. What is the value of the X ^ statistic? 



slept slept 
well poorly 



sleeping pill 
placebo 



44 


10 


81 


35 



:30 DIH VK4) ,Va(£) ,A(E) 

:run 

chi -square test 



NUMBER OF ROWS? E 
NUMBER OF COLUMNS? 
CONTINGENCY TABLE: 
ROW i 



ELEMENT 
ELEMENT 
ROW E 

ELEMENT 
ELEMENT 



44 
10 

81 

35 



OBSERVED VALUE EXPECTED VALUE CHIfS CONTRIBUTION 



COLUMN 1 

44 

81 
COLUMN S 

10 

35 



39«705e8E35294 

85. E94i 1764706 

14«S9411764705 
30.7058SS35S94 



.36S549019G14S 
.iG877E8 194759 

1 «007080610041 
,468813387433 



CHI -SQUARE = S.007E1 5836564 
DEGREES OF FREEDOM = 1 
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PROGRAM LISTING 

10 PRINT "CHI "SQUARE TEST" 

EO PRINT 

E8 REM » LIMIT SIZE OF CONTINGENCY TABLES TO VI (R*C) ,VE CC ) ,A (R ) 

59 REM " WHERE R=NO« OF ROWS, C=NO , OF COLUMNS ^ ^ , vc \l, ^ ,h vk / 
30 DIM V1<E5> ,VS(5) ,A(5) 

40 PRINT "NUMBER OF ROWS"; 

49 REM - LINES 50-150 INPUT CONTINGENCY TABLE 

50 INPUT R 

60 PRINT "NUMBER OF COLUMNS"? 
70 INPUT C 

80 PRINT "CONTINGENCY TABLE:" 

90 FOR 1=1 TO R 

100 PRINT "ROW"; I 

110 FOR J=l TO C 

lEO PRINT " ELEMENT" ;J; 

130 INPUT Vl<<I--l)*CfJ) 

140 NEXT J 

150 NEXT I 

160 PRINT 

169 REM - ADD UP MARGINAL FREQUENCIES FOR EACH ROW 

170 L=0 
180 M=l 

190 FOR 1=1 TO R 

SOO FOR J=i TO C 

ElO A(I)=A(I)+V1(M) 

SSO M=M-M 

E30 NEXT J 

£40 L=L-fA(I) 

£50 NEXT I 

E60 N=R*C 

569 REM - ADD UP MARGINAL FREQUENCIES FOR EACH COLUMN 

570 FOR 1=1 TO C 

E80 FOR J=I TO N STEP C 

S90 VE ( I ) =VS C I ) + VI ( J ) 

300 NEXT J 

310 NEXT I 

SSO 2=0 

330 PRINT "OBSERVED VALUE" , "EXPECTED VALUE" , "CHI tS CONTRIBUTION" 

340 FOR 1=1 TO C 

350 PRINT " COLUMN"?! 

360 FOR J=l TO R 

369 REM - P=EXPECTED CELL VALUE 

370 P=A<J)*VE(I)/L 
375 X=I+(J--1)*C 

379 REM - USE YATES' CORRECTION FOR CONTINUITY IN E X E CHI -SQUARE 
TESTS 

380 IF ROE THEN 390 

381 IF COS THEN 390 
3SS Y=<ABS(Vl(X)-P)~.5)tS/P 
333 GOTO 400 

ilo Y=%l<xT-mti/p'^'^^ CONTRIBUTION FROM THIS CELL 

399 REM - Z=TOTAL CHI -SQUARE VALUE 

400 Z=Z^-Y 

410 PRINT " "?Vi(X) ,P,Y 

4E0 NEXT J 

430 NEXT I 

440 PRINT 

450 PRINT "CHI -SQUARE ="?2 

460 PRINT "DEGREES OF FREEDOM =" ? (C-1 )* (R-1 ) 

470 END ^r^ ^f 
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Student's t -distribution 



This program calculates right-tail values for points on a f -distribution curve. You must provide the value of t 
and the degrees of freedom. 



zv 



t 

Student's t -distribution 



The shaded area represents the right-tail value for t . 

The right-tail value is approximated using the following formula: 

right-tail value =i(1+a,x + SgX^ + agX^ + a ^x^)''^ + e(x) 

where: a, = .196854 

S2 = .115194 

9 3 = .000344 

S4 = .019527 

, = (,y3(i.^).|)(|.,y34)-'A 
d = degrees of freedom 

I €(x)| <2.5 « 10-* 

Examples: 

What is the right -tail value when the f -value is 2.921 and there are 16 degrees of freedom? 

What is the right-tail value when the r -value is 11.178 and there are 5 degrees of freedom? 

: RUN 

STUDENT'S T-DISTRIBUTION 

(TO END PROGRAM ENTER A T-VALUE OF 0) 
T-VALUE? S,9E1 
DEGREES OF FREEDOM? 16 
RIGHl TAIL VALUE = 4 ,30000000E-03 

T-VALUE? 11 .178 

DEGREES OF FREEDOM? 5 

RIGHT TAIL VALUE = 8 .OOOOOOOOE-04 

T-VALUE? 

END PROGRAM 
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PROGRAH LISTING 

10 PRINT "STUDENT'S T -DISTRIBUTION" 

EO PRINT 

30 PRINT "(TO END PROGRAM ENTER A T-VALUE OF 0)" 

40 PRINT "T-VALUE"? 

50 INPUT T 

SO IF T=0 THEN 340 

70 PRINT "DEGREES OF FREEDOH"; 

BO INPUT D 

90 X=l 

iOO Y^l 

110 T-TfE 

119 REH - COHPUTE USING INVERSE FOR SHALL T -VALUES 

120 IF T<i THEN 170 
130 S»Y 

140 R=D 

150 Z=T 

160 GOTO EOO 

170 S=D 

leo R=Y 

190 Z=l/T 

EOO J=e/9/S 

ElO K=E/9/R 

S19 REH - COHPUTE USING APPROXIMATION FORHULAS 

SSO L^ABS C Ci ~K )^Zf CI /3 ) -1-fJ ) /SQR CK*Zf iS/3 ) ■*■ J ) 

E30 IF R<4 THEN E70 

E40 X«. 85/ Ci+-L^ C .196854-i-L'^C.115194-fL^C «000344-fL^. 019507) }})f^^ 

S50 X=INT CX^i0000+ .5 ) /lOOOO 

SSO GOTO e90 

S70 L=L*Ci+.08*Lf4/Rf3) 

E80 GOTO 840 

S89 REH - ADJUST IF INVERSE yAS COMPUTED 

E90 IF T>=1 THEN 310- 

300 X=i"-X 

310 PRINT ^'RIGHT TAIL VALUE ="|X 

3a0 PRINT 

330 GOTO 40 

340 END 
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Stydent's f-distribytion Test 



This program calculates the f -statistic and degrees of freedom for Student's distribution. The calculations 
can be based on any one of three hypotheses. 

The first hypothesis assumes that one population mean is equal to a given value. You must enter the ele- 
ments of the sample and the value of the mean. 

The remaining hypotheses compare two populations. In both tests the means of the two populations are 
equal, but the standard deviations may be equal or unequal. For these hypotheses you must enter the elements of 
each sample. 

The dimension statement at line 30 limits the size of the samples you may enter. You can change the limit 
according to the following scheme: 

30 DIM P(A/,e) 

where N = maximum sample size. 

Examples: 

A sample of children's IQ's was taken, the results being 101, 99, 120, 79, 111, 98, 106, 112, 87, and 97. 
Calculate the r -statistic assuming the population mean is 100. 

A second sample was taken, the results being 101, 95, 130, 150, 75, 79, 111, 100, 98 and 91. Calculate the 
t -statistic based on the hypothesis that the two samples have equal means and standard deviations. 

I RUN 

STUDENT'S T -DISTRIBUTION TEST 

TEST is HEAN=X 

TEST 2.1 HE AN =HE AN, STANDARD DEVIATION=STANDARD DEVIATION 

TEST 3: HEAN=MEANv STANDARD DEVIATION OSTANDARD DEVIATION 

WHICH HYPOTHESIS? 1 



SAMPLE 1 : 




NUMBER OF ELEMENTS? 10 


ELEMENT 1 


? 101 


ELEMENT E 


? 99 


ELEMENT 3 


? lao 


ELEMENT 4 


? 79 


ELEMENT 5 


? Ill 


ELEMENT 6 


? 98 


ELEMENT 7 


? 106 


ELEMENT 8 


? HE 


ELEMENT 9 


? 87 


ELEMENT 10 ? 97 



VALUE OF MEAN? 100 

T-VALUE = .86151301641 
DEGREES OF FREEDOM = 9 

END PROGRAM 
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:RUH 

STUDENT'S T -DISTRIBUTION TEST 

TEST l: HEAN=X 

TEST EI HEAH=HEAN, STANDARD DEVIATION=STANDARD DEVIATION 
TEST 3: HE AN =ME AN, STANDARD DEVIATION OSTANDARD DEVIATION 
WHICH HYPOTHESIS? B 



SAHPLE 1 S 




NUMBER OF ELEHENTS? 10 


ELEMENT 


1 ? 101 


ELEMENT 


e ? 99 


ELEMENT 


3 ? lao 


ELEMENT 


4 ? 79 


ELEMENT 


5 ? Ill 


ELEMENT 


6 ? 98 


ELEMENT 


7 ? 106 


ELEMENT 


8 ? iia 


ELEMENT 


9 ? 87 


ELEMENT 


10 ? 97 


SAMPLE E S 




NUMBER OF ELEMENTS? 10 


ELEMENT 


1 ? 101 


ELEMENT 


a ? 95 


ELEMENT 


3 ? 130 


ELEMENT 


4 ? 150 


ELEMENT 


5 ? 75 


ELEMENT 


6 ? 79 


ELEMENT 


7 ? Ill 


ELEMENT 


8 ? 100 


ELEMENT 


9 ? 98 


ELEMENT 


10 ? 91 



T~VALUE = „E46515aia849 
DEGREES OF FREEDOM « 18 

END PROGRAM 

PROGRAM LISTING 

10 PRINT "STUDENT'S T-DISTRIBUTION TEST" 

EQ PRINT 

E9 REM - LIMIT SAMPLE SIZE TO P(N,E) WHERE N=MAX. SAMPLE SIZE 

30 DIM PClOvE) 

40 DIM VCE),RCa) ,MCE),D<S) 

50 PRINT "TEST IS MEAN=X" 

60 PRINT "TEST E: MEAN =ME AN, STANDARD DEVIATION =STANDARD DEVIATION" 

70 PRINT "TEST 32 MEAN =ME AN .STANDARD DEVI ATION OSTANDARD DEVIATION' 

80 PRINT "WHICH HYPOTHESIS"; 

90 INPUT T 

100 PRINT 

109 REM ~ INPUT 1 OR E SAMPLES DEPENDING ON HYPOTHESIS 

110 FOR 1=1 TO SGN«T~i)-t-i 
lao VCI)=0 

130 DII)=0 
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140 PRINT "SAMPLE " ; I ? " : " 

150 PRINT " NUMBER OF ELEMENTS"; 

160 INPUT RCI) 

170 FOR J=l TO R<I) 

ISO PRINT " ELEMENT"; J; 

190 INPUT P<J,I) 

199 REM - ACCUMULATE SAMPLES 

eoo V(i)=v(i)-fPcj,i) 

SiO D<I)=D<I)+PCJvI)te 

SEO NEXT J 

eE9 REM - COMPUTE INTERMEDIATE VALUES 

S30 M(I)=Va>/R<I) 

840 V(I) = <D(I)-V<I)tE/RCI) )/CR (D-D 

E50 NEXT I 

EGO PRINT 

E70 IF T=E THEN 340 

S80 IF T=3 THEN 380 

589 REM - INPUT GIVEN VALUE FOR FIRST HYPOTHESIS 

590 PRIN'I "VALUE OF MEAN"? 
300 INPUT M 

309 REM - COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS 

310 A=CMCl>-~M)-JfrSQRCR(l)/Va)) 
3S0 B=R<i)-l 

330 GOTO 4S0 

339 REM - COMPUTE T AND DEGREES OF FREEDOM FOR SECOND HYPOTHESIS 

340 A=<Ma)-MCS))/SQR<i/R<l)'4-l/RCe) ) 
350 B=R<i)-i.R(S)-E 

360 A=A/SQRC C CR CI )~l)«Va )"S- CR(S) -1 ) W<S) ) /B) 

370 GOTO 400 

379 REM - COMPUTE T AND DEGREES OF FREEDOM FOR THIRD HYPOTHESIS 

380 A=<M(1 )"M(2) )/SQR<VCl)/R(i)-fV(e)/RCE) ) 
390 B=<V(l)/Ra)+V<S)/RCS))fE 

400 B=B/((V<i)/RCi) )fE/CR<i)-8-l)-f (V<E)/R(S) ) fE/ (R (S)-4-l ) ) -E 

410 B=INT<B4-.5) 

4E0 PRINT 

430 PRINT "T-VALUE =";ABS<A) 

440 PRINT "DEGREES OF FREhDOM ~"|B 

450 END 
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F -distribytion 



This program calculates percentile values for given values on an F -distribution curve. You must provide the 
value of F, the degrees of freedom in the numerator and the degrees of freedom in the denominator. 




F 

The F -distribution 



The area of the shaded region represents the percentile. 

The F -distribution function is approximated using the following formula: 
percentile = 1-2(1+^1/-*- a zY^ + ^3/^ + a ^V^Y'*' + e(/) 



where: a , 
a . 



y 

dz 

€{y) 



= .196854 

= .115194 

= .000344 

= .019527 

= {F^/3(l--^^)-(1-^^))(^^4-fV3.^^)-ya 

= degrees of freedom in numerator 

= degrees of freedom in denominator 

< 2.5 X lO-'* 



Examples: 

What is the percentile on an F -distribution curve when the F -value is .474 and the degrees of freedom are 
1 and 18? 

What is the percentile when the F -value is 23.7 and the degrees of freedom are 3 and 6? 

I RUN 
F~DISTRIBUTION 

CTO END PROGRAH ENTER AN F -VALUE OF 0) 
F -VALUE? »4-74 

DEGREES OF FREEDOH IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 18 
PERCENTILE = «4937 

F -VALUE? S3. 7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
PERCENTILE = .9984 

F -VALUE? 

END PROGRAM 
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PROGRAM LISTING 



10 


PRINT "F-DISTRIBUTION" 


EO 


PRINT 


30 


PRINT "(TO END PROGRAM ENTER AN F- VALUE OF 0)" 


40 


PRINT "F -VALUE"; 


SO 


INPUT F 


60 


IF F=0 THEN 340 


70 


PRINT "DEGREES OF FREEDOM IN NUMERATOR"? 


80 


INPUT Dl 


90 


PRINT "DEGREES OF FREEDOM IN DENOMINATOR"; 


100 


INPUT DS 


iiO 


>:>i 


119 


REM - COMPUTE USING INVERSE FOR SMALL F~VALUES 


ISO 


IF F<i THEN 170 


130 


S=D1 


140 


T=DE 


150 


ZsF 


160 


GOTO EOO 


170 


S=DS 


180 


T=D1 


190 


2^1 /F 


eoo 


J^e/9/S 


SIO 


K=E/9/T 


Ei9 


REM ~ COMPUTE USING AhPROXIMATIQN FORMULAS 


BEO 


Y=ABS C < 1 -K ) *2 1 a /3 ) -1 -^ J ) /SQR < K*Z t (2/3 ) -f J ) 


ESQ 


IF T<4 THEN E70 


E40 


X=.5/ai-V*( »196e54"t-Y^( .il5194fY*C ^000344+Y* ,0195S7) ) ) ) t4 


eso 


X=INT(X*iOOOO-«- .5)/10000 


ESO 


GOTO E90 


E70 


Y=Y* ( 1 + . OB*Y f 4 /T f 3 ) 


£80 


GOTO S40 


BBS 


REM - ADJUST IF INVERSE WAS COMPUTED 


890 


IF F>=i THEN 310 


300 


X==i-X 


310 


PRINT "PERCENTILE =="U-X 


3E0 


PRINT 


330 


GOTO 40 


340 


END 



OPTION 

You may prefer to compute the tail-end value (the area of the unshaded region in the figure above). The pro- 
gram changes necessary are listed following the examples below. 

Examples: 

What is the tail-end value on an F -distribution curve when the F -value is .474 and the degrees of freedom 
are land 18? 

What is the tail-end value when the F -value is 23.7 and the degrees of freedom are 3 and 6? 
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:run 

F -DISTRIBUTION 

iJO END PROGRAM ENTER AN F -VALUE OF 0) 
F "VALUE? »474 

DEGREES OF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 18 
TAIL END VALUE = «5063 

F -VALUE? S3«7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
TAIL END VALUE « 1 e60000000E-03 

F -VALUE? 

END PROGRAM 



PROGRAM LISTING 

1 REM - OPTION 310 

10 PRINT "F-DISTRIBUTION" 

e 
e 



300 X=l-X 

310 PRINT "TAIL END VAL.UE =»;X 

300 PRINT 

330 GOTO 40 

340 END 
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Linear Correlation Coefficient 



This program computes the coefficient of correlation between two variables. A linear relationship is 
assumed between the variables. You must enter the coordinates of a group of data points forming the regression 
line. 

Example: 

The height of twelve men and their sons is recorded in the table below. What is the coefficient of correlation 
between the heights of fathers and the heights of their sons? 



father 


65 


63 


67 


64 


68 


62 


70 


66 


68 


67 


69 


71 


son 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 


70 



height in inches 



:RUN 

LINEAR CORRELATION COEFFICIENT 



NUMBER 


OF POINTS? IE 


X,Y OF 


POINT 


1 ? 65,68 


X,V OF 


POINT 


E ? 63,66 


X,V OF 


POINT 


3 ? 67,68 


XvV OF 


POINT 


4 ? 64,65 


X,Y OF 


POINT 


5 ? 68,69 


X>Y OF 


POINT 


6 ? 6S>66 


X,Y OF 


POINT 


7 ? 70,68 


XvY OF 


POINT 


8 ? 66,65 


X,Y OF 


POINT 


9 ? 68,71 


X>Y OF 


POINT 


10 ? 67,67 


X,Y OF 


POINT 


11 ? 69,68 


XvY OF 


POINT 


IE ? 71,70 



COEFFICIENT OF CORRELATION 



.70E6516450773 



END PROGRAM 



PROGRAM LISTING 

10 PRINT "LINEAR CORRELATION COEFFICIENT" 

EO PRINT 

30 PRINT "NUMBER OF POINTS"; 

40 INPUT N 

50 J~0 

60 K=0 

70 L=0 

80 M=0 

90 R=0 

99 REM ~ ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,Y OF POINT"; I? 

lEO INPUT X,Y 

1S9 REM - ACCUMULATE INTERMEDIATE VALUES 
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130 J=J-fX 

140 K=K-i-Y 

150 L=L+Xfe 

160 MsM+Yte 

170 R=R4-X^Y 

IBO NEXT I 

189 REH - CALCULATE COEFFICIENT, PRINT 

190 RE= (N*R-J*K ) /SQR ( (N*L-JfE )* (N-^H-KfS ) ) 
EOO PRINT 

ElO PRINT "COEFFICIENT OF CORRELATION. ="?RE 

EEO END 
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Linear Regression 



This program fits a straight line to a given set of coordinates using the method of least squares. The equa- 
tion of the line, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 
Once the line has been fitted, you may predict values of y for given values of x . 

Example: 

The table below shows the height and weight of 1 1 male college students. Fit a curve to these points. How 
much would the average 70" and 72" male student weigh? 



height (in.) j 71 


73 


64 


65 


61 


70 


65 


72 


63 


67 


64 


weight (lbs.) 1 160 


183 


154 


168 


159 


180 


145 


210 


132 


168 


Lm 



: RUN 
LINEAR 


REGRESSION 


NUMBER 


OF KNOWN POINTS? 11 


X.,V OF 


POINT 


1 ? 71 ,160 


X,Y OF 


POINT 


a ? 73,183 


X.,Y OF 


POINT 


3 ? 64,154 


X,V OF 


POINT 


4 ? 65,168 


X,Y OF 


POINT 


5 ? 61 a59 


X,V OF 


POINT 


6 ? 70,180 


X.Y OF 


POINT 


7 ? 65,145 


X,Y OF 


POINT 


8 ? 7e,E10 


X,Y OF 


POINT 


9 ? ssase 


X,Y OF 


POINT 


10 ? 67,168 


X>Y OF 


POINT 


11 ? 64,141 



F<X) =~106. 7916666666 -§- < 4 « 047ESEaaEeEe * X ) 

COEFFICIENT OF DETERMINATION (RtE) = «556£601 669757 
COEFFICIENT OF CORRELATION = .74582851043 
STANDARD ERROR OF ESTIMATE = 15.41348816 

INTERPOLATIONS < ENTER X=0 TO EiiD PROGRAM) 
X =? 70 

Y = 176.5138808889 

X =? 7S 

Y = 184.6083333334 

X =? 

END PROGRAM 
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PRQGRAH LISTING 



10 

eo 

30 
40 
50 
60 
70 
80 
90 
99 
100 
110 

lao 

189 
130 
140 
150 
160 
170 
180 
189 
190 
SOO 
ElO 

eao 

ES9 

aso 

E40 
BSQ 
E60 
E70 

sao 

£90 
300 
310 
319 
300 
330 
340 
349 
350 
360 
370 
380 
390 



PRINT "LINEAR REGRESSION" 

PRINT 

PRINT "NUHBER OF KNOWN POINTS"? 

INPUT H 

J=0 

K=0 

L«0 

H=0 

Ra=o 

REH - LOOP TO ENTER COORDINATES OF POINTS 

FOR 1=1 TO N 

PRINT "X,Y OF POINT" II; 

INPUT X,V 

REM - ACCUMULATE INTERHEDIATE SUMS 

K=K+Y 

LsL'"^X ta 

M=H-fYfe 

RBsRE+X-^Y 

NEXT I 

REH - COHPUTE CURVE COEFFICIENT 

B= (N^R2-»K* J ) / CN*L-Jf S ) 

PRINT 

PRINT "FCX) s^;Ar'-4^ C"lB;"* X )" 

REM - COMPUTE REGRESSION ANALYSIS 

J=B«-(Ra-J-^K/N> 

H=H~Kfe/N 

K=H~J 

PRINT 

Ra=J/H 

PRINT "COEFFICIENT OF DETERMINATION CRfE) »^';RS 
"COEFFICIENT OF CORRELATION •"^SQRCRS) 
"STANDARD ERROR OF ESTIMATE »» ;SQRCK/ CN-HI) 



PRINT 
PRINT 
PRINT 

REH - ESTIMATE Y-COORDINATES OF POINTS WITH ENTERED X-CODRDINATES 
"INTERPOLATION? CENTER X=0 TO END PROGRAM)" 



PRINT 
PRINT 
INPUT 



«'X s"; 

X 

REM - RESTART OR END PROGRAM? 
IF X=0 THEN 390 
PRINT "Y «";A4-B*X 
PRINT 
GOTO 330 
END 
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Multiple Linear Regression 



This program finds the coefficients of a multiple variable linear equation using the method of least squares. 
The equation is of the following form: 

y ~ c + a ^x ^ + 32^2 + ' "df^x^ 

where: y = dependent variable 
c = constant 
^ V ^ 2 " ' ^n ~ coefficients of independent variables x y x 2, - . • x^ 



The constant and the coefficients are printed. 

You must provide the x - and y -coordinates of known data points. Once the equation has been found using 
the data you enter, you may predict values of the dependent variables for given values of the independent varia- 
bles. 

The dimension statement at line 30 limits the number of known data points the equation may contain. You can 

change this limit according to the following scheme: 

30 DIH XiN+n, SiN+n, TiN+n, A</V+/./V + 2) 
where N - the number of known data points. 

Example: 

The table below shows the age, height and weight of eight boys. Using weight as the dependent variable, fit 

a curve to the data. Estimate the weight of a seven year old boy who is 51 Inches tall. 



age 


8 


9 


6 


10 


8 


9 


9 


7 


height 


48 


49 


44 


59 


55 


51 


55 


50 


weight 


59 


55 


50 


80 


61 


75 


67 


58 



SRUN 

HULTIPLE LINEAR REGRESSION 

NUHBER OF KNOIaIN POINTS? 8 

NUMBER OF INDEPENDENT VARIABLES? 8 

POINT 1 

VARIABLE i ? 8 

VARIABLE a ? 48 

DEPENDENT VARIABLE? 59 
POINT a 

VARIABLE 1 ? 9 

VARIABLE E ? 49 

DEPENDENT VARIABLE? 55 
POINT 3 

VARIABLE i ? S 

VARIABLE a ? 44 

DEPENDENT VARIABLE? 50 
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POINT 4 

VARIABLE 1 ? 10 

VARIABLE E ? 59 

DEPENDENT VARIABLE? 80 
POINl 5 

VARIABLE 1 ? 8 

VARIABLE E ? 55 

DEPENDENT VARIABLE? 61 
POINT 6 

VARIABLE i ? 9 

VARIABLE E ? 51 

DEPENDENT VARIABLE? 75 
POINT 7 

VARIABLE 1 ? 9 

VARIABLE S ? 55 

DEPENDENT VARIABLE? 67 
POINT 8 

VARIABLE 1 ? 7 

VARIABLE E ? 50 

DEPENDENT VARIABLE? 58 

EQUATION COEFFICIENTS: 

CONSTANT; -15. 70eiE765959 
VARIABLE C 1 )S 3 .68085i0638S8 
VARIABLES E ): .943E6S4 113481 

COEFFICIENT OF DETERHINATION (RfS) = a71569735S87S6 
COEFFICIENT OF HULTIPLE CORRELATION = .84598398S7i 
STANDARD ERROR OF ESTIHATE = 6.4S88798755 

INTERPOLATIONS < ENTER TO END PROGRAH) 

VARIABLE 1 ? 7 

VARIABLE e ? 51 

DEPENDENT VARIABLE = 58 » i70Slcf76596 

VARIABLE 1 ? 
END PROGRAH 



PROGRAH LISTING 

10 PRINT "MULTIPLE LINEAR REGRESSION" 

SO PRINT 

59 REH - SET ARRAY LIMITS TO X (N-f 1 ) ,S (N+1 ) .T (N-fl) ,A(N-«-l ,N-4-a) 
30 DIM XC9) ,S(9) >T(9) ,AOvlO) 

40 PRINT "NUMBER OF KNOWN POINTS"; 

50 INPUT N 

60 PRINT "NUMBER OF INDEPENDENT VARIABLES"; 
70 INPUT V 

80 xa)=i 

90 FOR 1=1 TO N 

100 PRINT "POINT" I I 

110 FOR J=l TO V 

119 REM - ENTER INDEPENDENT VARIABLES FOR EACH POINT 

lEO PRINT " VARIABLE"; J? 

130 INPUT XiJ-^1) 
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140 NEXT J 

149 REM - ENTER DEPENDENT VARIABLE FDR EACH POINT 

150 PRINT " DEPENDENT VARIABLE"; 
160 INPUT X(V+a) 

169 REM - POPULATE A MATRIX TO BE USED IN CURVE FITTING 

170 FOR K=l TO V+1 
ISO FOR L=l TO V+2 

190 ACK%L)=A(K,L)4-XCK)*X<L> 

EOO S<K)=A(K,V-f-E) 

ElO NEXT L 

SSO NEXT K 

S30 S i V-i-S ) =S i V+S ) i-X i V-^S ) ts 

S40 NEXT I 

E48 REM - STATEMENTS E50 TO BOO FIT CURVE BY SOLVING THE SYSTEM OF 

E49 REM - LINEAR EQUATIONS IN MATRIX A<) 

S50 FOR I=E TO V-fl 

S60 T(I)=A<i,I) 

S70 NEXT I 

SSO FOR 1=1 TO V-i-1 

E90 J=I 

300 IF ACJ,I)<>0 THEN 340 

305 J=J-fl 

310 IF J<:=V-«-i THEN 300 

3S0 PRINT "NO UNIQUE SOLUTION" 

330 GOTO 810 

340 FOR K=l TO V+S 

350 B=A<I,K) 

360 ACX,K)=A(J,K) 

370 A(J,K)=B 

380 NEXT K 

390 Z=1/A<I,I) 

400 FOR K=l TO V+E 

410 A<I,K)=Z*A(I,K) 

4S0 NEXT K 

430 FOR J=l TO V-i-i 

440 IF J=I THEN 490 

450 Z=~A<J,I) 

460 FOR K=l TO V+S 

470 ACJ,K)=A(J,K)+Z-J^A(I,K) 

480 NEXT K 

490 NEXT J 

500 NEXT I 

510 PRINT 

SSO PRINT "EQUATION COEFFICIENTS:" 

5S5 PRINT " CONSTANT : " ; A < 1 , V+S ) 

530 FOR I=S TO V+1 

540 PRINT "VARIABLE(";I-1? " )»";A<I,V+H) 

550 NEXT I 

560 P=0 

570 FOR I=S TO V+1 

580 P=P+A ( I , V+S ) * (S ( I ) ~T ( I ) ^*S ( 1 ) /N ) 

590 NEXT I 

600 R=S ( V+S ) "S < 1 ) tS/N 

610 Z=R"P 

6S0 L=N-V-1 

640 PRINT 

650 X=P/R 
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660 PRINT "COEFFICIENT OF DETERMINATION CRte) «"?! 

670 PRINT "COEFFICIENT OF MULTIPLE CORRELATION =";SQR(I) 

680 PRINT "STANDARD ERROR OF ESTIMATE ="? SQRCABS<2/L) ) 

690 PRINT 

699 REM » ESTIMATE DEPENDENT VARIABLE FROM ENTERED INDEPENDENT VARIAB 
LES 

700 PRINT "INTERPOLATION: CENTER TO END PROGRAM)" 
710 P«Aa,V-fa) 

7E0 FOR J=l TO V 

730 PRINT "VARIABLE"? J? 

740 INPUT X 

749 REM -• TEST FOR END OF PROGRAM 

7Ba IF X=0 THEN 810 

760 PsP-t-ACJ-i-l »V-fE)*X 

770 NEXT J 

780 PRINT "DEPENDENT VARIABLE =";P 

790 PRINT 

800 GOTO 710 

810 END 
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N th Order Regression 



This program finds the coefficients of an N th order equation using the method of least squares. The equa- 
tion is of the following form: 

y = c + a^x + a2X^ + ...afjx'^ 

where: y = dependent variable 

c = constant 
a i,a 2. . .an = coefficients of independent variables x,x ^,. . . xn . respectively 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and / -coordinates for known data points. Once the equation has been computed 
you may predict values of y for given values of x. 

The dimension statement at line 30 limits the degree of the equation. You can change this limit according to 
the following scheme: 

30 DIM A(2»D+n, RiD+UD + 2) , T(D + 2) 
where D = maximum degree of equation. 



Example: 

The table below gives the stopping distance (reaction plus braking distance) of an automobile at various 
speeds. Fit an exponential curve to the data. Estimate the stopping distance at 55 m.p.h. 

m.p.h. 
stopping distance 



20 


30 


40 


50 


60 


70 


54 


90 


138 


206 


292 


396 



S30 DIM A(5) ,R<3,4) ,T<4> 

: RUN 

NTH -ORDER REGRESSION 



DEGREE 
NUMBER 
XvY OF 
X,Y OF 
X>Y OF 
X,Y OF 
XvY OF 
X,Y OF 



OF EQUATION? E 
OF KNOWN POINTS? 
POINT 1 ? S0,54 



POINT 
POINT 
POINT 
POINT 
POINT 



e 

3 
4 

5 
6 



? 30,90 
? 40,138 
? 50,806 

? SO, ass 

? 70,396 



CONSTANT = 41.771428569 
1 DEGREE COEFFICIENT =~i .0957i4E8559S 
a DEGREE COEFFICIENT = B.7857i4SBE~0E 



COEFFICIENT OF DETERMINATION (RfS) « , 9999S79597663 
COEFFICIENT OF CORRELATION = «999963979E3 
STANDARD ERROR OF ESTIMATE « 1 „4S0 93 19536 
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interpolation: (ENTER TO END PROGRAH) 

X ^? 55 

Y « a47«a750000003 

X «? 

END PROGRAM 

PROGRAH LISTING 

iO PRINT "NTH-ORDER REGRESSION" 

EO PRINT 

as REH - SET LIMITS ON DEGREE OF EQUATION TO ACED-M ) .RCD-i-i ,D-*-E) ,TCD-^a> 

C WHERE DsMAXIHUH DEGREE OF EQUATION) 

30 DIH AC13) .RC7.8).TC8) 

40 PRINT "DEGREE OF EQUATION"? 

50 INPUT D 

60 PRINT "NUHBER OF KNOWN POINTS"; 

70 INPUT N 

80 A<1)=N 

89 REH ~ ENTER COORDINATES OF DATA POINTS 

90 FOR 1^1 TO N 

iOO PRINT "X.Y OF POINT" ;I| 

110 INPUT X,Y 

ilB REH - LINES lEO-eOO POPULATE MATRICES WITH 

119 REM - A SYSTEH OF EQUATIONS 

lEO FOR J=a TO E*D-4-l 

130 ACJ)=A(J)+XtCJ-i) 

140 NEXT J 

150 FOR K=l TO D-fl 

160 R C K ,D-^E ) «T CK ) 4-Y^X t CK-1 ) 

170 TCK)=TCK)-fY*^XtCK~i» 

180 NEXT K 

190 TiB-^E ) =T (D■^e ) 4-Yta 

eOO NEXT I 

E09 REM - LINES 810-490 SOLVE THE SYSTEM OF EQUATIONS IN THE HATRICES 

EiO FOR J^l TO D-4-i 

ESO FOR K-1 TO D-*-! 

S30 R(J,K)=ACJ+K-1) 

S40 NEXT K 

EBO NEXT J 

S60 FOR J«l TO D+1 

S70 K=J 

S80 IF RCK,J)<>0 THEN 320 

S90 K=K+1 

895 IF K<=D+1 THEN E80 

300 PRINT '^NO UNIQUE SOLUTION" 

310 GOTO 790 

320 FOR 1*1 TO D-t-E 

330 S=RCJ,I^ 

340 RCJa)=RCK,l) 

350 RCKa)=S 

360 NEXT I 

370 Z=1/RCJ,J) 

380 FOR 1=1 TO D4-S 

390 RUa)=Z*R(Ja> 

400 NEXT I 
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410 FOR K=i TO D^l 

4E0 IF K=J THEN 470 

430 Z=~R(K,J) 

440 FOR 1 = 1 TO D4-E 

450 R < K , I ) =R < K -, I ) -s-Z*R < J , I ) 

460 NEXT I 

470 NEXT K 

480 NEXT J 

490 PRINT 

495 PRINT " CONSTANT =» ? R CI ,D-i-H ) 

499 REM - PRINT EQUATION COEFFICIENTa 

500 FOR J:=l TO D 

510 PRINT J^'DEGREE COEFFICIENT ==" 1 R ( J-8-1 ,D+E ) 

5S0 NEXT J 

530 PRINT 

539 REM ~ COMPUTE REGRESSION ANALYSIS 

540 P=0 

550 FOR J=E TO D-!-l 

560 P==P+R (J ,D^a ) * <T < J ) -A (J ) ^T ( 1 ) /N ) 

570 NEXT J 

5B0 Q=T(D4S)"T(1 )fE/N 

590 2=Q"P 

600 I=N~D"i 

6S0 PRINT 

S30 J=P/Q 

640 PRINT "COEFFICIENT -OF DETERMINATION (RfS) =";J 

650 PRINT "COEFFICIENT OF CORRELATION. =";SQR(J) 

660 PRINT "STANDARD ERROR OF ESTIMATE =";SQR<Z/I) 

670 PRINT 

679 REM - COMPUTE Y-COORDINATE FROM ENTERED X -COORDINATE 

680 PRINT "INTERPOLATION: (ENTER TO END PROGRAM)" 
690 P=R(l,D-f-a) 

700 PRINT "X =»; 

710 INPUT X 

7E0 IF X=0 THEN 790 

730 FOR J=l TO D 

740 P=P+R(J+i ,D+E)*XfJ 

750 NEXT J 

760 PRINT "Y =";P 

770 PRINT 

780 GOTO 690 

790 END 
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Geometric Regression 



This program fits a geometric curve to a set of coordinates using the method of least squares. The equa- 
tion, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 

You must provide the x - and y -coordinates of known data points. Once the curve has been fitted you may 
predict values of y for given values of x . 

Example: 

The table below gives the pressures of a gas measured at various volumes in an experiment. The relation- 
ship between pressure and volume of a gas is expressed by the following formula: 

PV^^ C 

where: P = pressure 
V — volume 
C and K are constants. 

This formula can be rewritten in standard geometric form: 



P=CV 



-K 



Note the exponent is negative, which accounts for the negative exponents the program calculates. 

Fit a geometric curve to the data and estimate the pressure of 90 cubic inches of the gas. 



volume 
pressure 



56.1 


60.7 


73.2 


88.3 


120.1 


187.5 


57.0 


51.0 


39.2 


30.2 


19.6 


10.5 



:run 

GEOHETRIC REGRESSION 

MUHBER OF KNOWN POINTS? 6 
X.Y OF POINT 1 ? 56.1.57.0 
X\Y OF POINT a ? 60.7,51.0 
X.Y OF POINT 3 ? 13. a, 33. B 
X,Y OF POINT 4 ? 88.3,30aa 
XvY OF POINT 5 ? 180.1,19.6 
X,Y OF POINT 6 ? 187.5,10.5 



F<X) 



16103.68991715 # Xf-i e4015505eE441 



COEFFICIENT OF DETERHINATION CRtB) « .9999988312731 
COEFFICIENT OF CORRELATION = .99999941564 
STANDARD ERROR OF ESTIHATE = 7.736i4568E~04 

INTERPOLATION: CENTER X=0 TO END PROGRAH) 

X =? 90 

Y = 09.37349885098 

X =? 

END PROGRAH 
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PROGRAM LISTING 



10 

ao 

30 
40 

50 
60 

70 

SO 
90 
99 
100 
110 
ISO 
1E9 
130 
140 
150 
160 
170 
180 
190 
EOO 
E09 
ElO 
SSO 
S30 
E40 
S49 
E50 
£60 
e70 
£80 
E90 
300 
310 
3E0 
330 
339 
340 
350 
360 
370 
380 
390 
400 
410 



PRINT 

PRINT 

PRINT 

INPUT 

J=0 

K=0 

L=0 

M=0 

RE=0 

REH - 



"GEOHETRIC REGRESSION 



'NUHBER OF KNOWN POINTS" 



N 



ENTER 



COORDINATES OF DATA POINTS 

FOR 1=1 TO N 

PRINT »X,Y OF POINT"?!? 

INPUT X,Y 

REM - ACCUMULATE INTERMEDIATE VALUES 

Y=LOGCV) 

X=LOGCX) 

J=J-fX 

K=K"t-Y 

L=L+XtE 

M=M-fYtS 

RS=RS+X*Y 

NEXT I 

REM - CALCULATE AND PRINT COEFFICIENTS OF EQUATION 

B= CN*RE-K^ J ) / <N*L-Jf E ) 

A=<K-B*J)/N 

PRINT 

PRINT "FCX) ="?EXP<A)r'* Xt"?B 

REM - CALCULATE REGRESSION ANALYSIS 

J=B*CRS-J*K/N) 

M=M--Kf£/N 

K=M-J 

PRINT 

RS=J/M 

PRINT 

PRINT 

PRINT 

PRINT 

REM - 

PRINT 

PRINT 

INPUT 

IF X 



'COEFFICIENT OF 
'COEFFICIENT OF 
•STANDARD ERROR 



DETERMINATION (RfE) ="?RS 

CORRELATION ~";SQR(Ra) 

OF ESTIMATE = " ? SQR ( K / < N -E ) ) 



ESTIMATE Y-COORDINATE FROM ENTERED X-COORDINATE 
"INTERPOLATION: CENTER X=0 TO END PROGRAM)" 
"X ^"; 
X 
THEN 410 



PRINT "Y ■ 

PRINT 
GOTO 350 
END 



;EXP(A)^^XtB 
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Exponential Regression 



This program finds the coefficients of an equation for an exponential curve. The equation is in the following 

form: 

f ( X ) = aebx 
where a and b are the calculated coefficients. 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and y -coordinates for known data points. Once the curve has been fitted you may 
predict values of y for given values of x . 



Example: 

The table below shows the number of bacteria present in a culture at various points in time. Fit an exponen- 
tial curve to the data and estimate the number of bacteria after 7 hours. 

number of hours 
number of bacteria 






1 


2 


3 


4 


5 




25 


38 


58 


89 


135 


206 


315 



:run 

EXPO!--IEMTIAL REGRESSION 



NUMBER 
X,Y OF 
X,Y OF 

X;Y OF 

X,Y OF 

X>Y OF 

X,Y OF 

X»Y OF 



OF KNOWN POINTS? 7 



POINT 
POINT 
POINT 

POINT 
POINT 
POINT 
•POINT 



Q,BS 

1,38 

e,58 

3,89 

4,135 

5,S06 

6,315 



A = 84.96166337346 
B = .4883750795699 

COEFFICIENT OF DETERMINATION CRtS) = „ 9999935513734 
COEFFICIENT OF CORRELATION = .99999677568 
STANDARD ERROR OF ESTIMATE = S,538S086BE-03 

INTERPOLATION: (ENTER X=0 TO END PROGRAM) 

X =? 7 

Y = 480.0867130787 

X =? 

END PROGRAM 
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PROGRAM LISTING 



10 
EO 
30 
40 
50 
60 
70 
80 
90 
99 
100 
110 

leo 

1E9 
130 

140 
150 
160 
170 

180 

190 

199 

EOO 

ElO 

ESO 

S30 

E40 

£49 

ESO 

£60 

S70 

S80 

S90 

300 

310 

3S0 

330 

339 

340 

350 

360 

370 

380 

390 

400 

410 



PRINT 

PRINT 

PRINT 

INPUT 

J=0 

K=0 

L=0 

M=0 

RS=0 

REH - 



"EXPONENTIAL REGRESSION 



"NUMBER 
N 



OF KNOWN POINTS 



ENTER 



COORDINATES OF DATA POINTS 
FOR 1=1 TO N 
PRINT "XvY OF P0INI";T; 
INPUT X,Y 

REM ~ ACCUMULATE INTE^^MEDIATE VALUES 
Y=LOG<Y) 

JsJ-i-X 
K=K+Y 

L=L-t-XfE 

M=M-^YfS 

RE=RS-4-X*Y 

NEXT I 

REM - CALCULATE AND Pr^INT COEFFICIENTS OF EQUATION 

B=(N-*RS-K^J)/<N*L-JtS) 

A=(K-B*J)/N 

PRINT 

PRINT "A =";EXPCA) 

PRINT "B =";B 

REM - CALCULATh REGREhSION TABLE VALUES 

J=B*CRa»-J^K/N) 

M=M"Kfe/N 

K=M~J 

PRINT 

RS=J/M 

PRINT 

PRINT 

PRINT 

PRINT 

REM - 

PRINT 

PRINT 

INPUT 

IF X 



'COEFFICIENT OF 
'COEFFICIENT OF 
'STANDARD ERROR 



DETERMINATION <RfS) =";RS 

CORRELATION = " ; SQR ( RE ) 

OF ESTIMATE. =" ?SQR<K/ <N-S) ) 



ESTIMATE Y -VALUE FROM ENTERED 
"INTERPOLATIONS CENTER X=0 TO 
"X ="; 
X 
THEN 410 



X -VALUE 

END PROGRAM) 



PRINT "Y =";EXP(A)*EXP«B*X) 
PRINT 

GOTO 350 
END 
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System Reliability 



This program calculates the reliability of an operating system that is subject to wearout and chance failure. 
You must enter the system's operating time and the wearout time and failure rate of each component. 

Example: 

Compute the reliability of a computer system operating for 1000 hours with the components shown in the 
list below. 



CPU 

terminal 

disk 

printer 



wearout (hrs.) 


failure 


15,000 


.00020 


3,000 


.00010 


3,000 


.00015 


1,500 


.00015 



: RUN 

SYSTEM RELIABILITY 

(TO END PROGRAH ENTER 0) 

OPERATING TIME IN HOURS? 1000 

NUMBER OF COMPONENTS? 4 

COMPONENT i 

AVERAGE WEAROUT TIME? 15000 
AVERAGE FAILURE RATE? »000a 

COMPONENT E 

AVERAGE tAlEAROUT TIME? 3000 
AVERAGE FAILURE RATE? .0001 

COMPONENT 3 

AVERAGE WEAROUT TIME? 3000 
AVERAGE FAILURE RATE? »000ib 

COMPONENT 4 

AVERAGE WEAROUT TIME? 1500 
AVERAGE FAILURE RATE? «O0Oi5 

SYSTEM RELIABILITY = « 1353350338367 

OPERATING TIME IN HOURS? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "SYSTEM RELIABILITY" 

EO PRINT 

30 PRINT "(TO END PROGRAM ENTER 0)" 

40 PRINT "OPERATING TIME IN HOURS"; 

50 INPUT T 
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59 REM - TEST FOR END OF PROGRAM 

60 IF T=:0 THEN E30 

70 PRINT "NUMBER OF COMPONENTS"; 

80 INPUT N 

90 2=0 

99 REM - ENTER DATA FOR EACH COMPONENT 

100 FOR 1=1 TO N 

110 PRINT "COMPONENT"; I 

lEO PRINT " AVfcRAGE UJEAROUT TIME"; 

130 INPUT y 

140 PRINT " AVERAGE FAILURE RATE"; 

150 INPUT F 

159 REM - INCLUDE EACH COMPONENT IN RELIABILITS' 

160 Z=2+l/y-4-F 
170 NEXT I 
180 PRINT 

189 REM - CALCULATE RELIABILITY, PRINT 

190 2=EXP<-2*T) 

aOO PRINT "SYSTLM RELIABILITY =";Z 

ElO PRINT 

El 9 REM ~ RESTART PROGRAM 

ESO GOTO 40 

S30 END 
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Average Growth Rate, Fytyre Projections 



This program calculates the average growth rate of a company, then projects figures for future years. The 
growth rate and projections could be computed for any aspect of a company, such as sales, earnings, number cf 
employees, or patronage. You must provide established figures for a past series of years. 

The dimension statement at line 30 limits the number of past figures you may enter. Any need to alter this 
limit should be done in the following manner: 

30 DIH SiN) 

where A/ = the number of years for which figures are known. 

Example: 

The bon-owing records for Claremount County Library are tabulated in the graph below. What is its average 
growth rate? How many books can it expect to lend in its tenth and twentieth years of service? 



70 
60 
50 
40 
30 
20 
10 



74 



60 



62 



51 



42 



45 



35 



26 



13 41 



te a l — 1 






123456789 
year 



:30 Din SO) 

AVERAGE GROWTH RATE, FUTURE PROJECTIONS 

MUHBER OF YEARS FIGURES ESTABLISHED? 9 
FIGURE: YEAR i ? E6 

YEAR e ? SB 

YEAR 3 ? 4S 

YEAR 4 ? 45 

YEAR 5 ? 41 

S'EAR 6 ? 51 

YEAR 7 ? 60 

YEAR 8 ? 68 

YEAR 9 ? 74 
AVERAGE GROWTH RATE = il»88 % 
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CENTER TO END PROGRAM) 
PROJECTED SALES FOR YEAR? 10 

= 81. E9 
PROJECTED SALES FOR YEAR? SO 

= E4-9.88 
PROJECTED SALES FOR YEAR? 

END PROG RAH 



PROGRAM LISTING 

10 PRINT "AVERAGE GROWTH RATE, FUTURE PROJECTIONS" 

SO PRINT 

ES REM - SET ARRAY S TO NUMBER OF YEARS PAST FIGURES KNOWN 

30 DIM sceo) 

39 REM - STATEMENTS 4© TO lEO REQUEST USER INPUT 

40 PRINT "NUMBER OF YEARS FIGURES ESTABLISHED"; 
50 INPUT N 

60 FOR 1=1 TO N 

70 IF I>1 THEN 100 

SO PRINT "FIGURES YEAR"U^, 

90 GOTO 110 

100 PRINT '' YEAR"; II 

110 INPUT SCI) 

ISO NEXT I 

189 REM - INITIALIZE VARIABLES FDR FIRST YEAR 
130 T=L0GCS(1)) 

140 V=0 

149 REM - LOOP FOR REMAINING YEARS OF HISTORY 

150 FOR I=E TO N 
160 L=LOGCSCI)) 
170 T=T-fL 

180 V=V4-CI».1)#L 

190 NEXT I 

199 REM - CALCULATE AVERAGE GROWTH RATE 

EOO A=6^ (a*V/ (N-i ) "T ) / (N ) / CN+l ) 

SIO G=EXPCA)~1 

El 9 REM - ROUND OFF, PRINT 

SaO PRINT '"AVERAGE GROWTH RATE ^" aNT.(G*100004- ,5) /lOO ; "X" 

S30 PRINT 

839 REM - CALCULATE AVERAGE ANNUAL GROWTH FACTOR 

e40 S=EXP CT/N~A* CN-1 ) /S ) 

£50 PRINT "CENTER TO END PROGRAM)" 

659 REM - INPUT YEAR NUMBER 

E60 PRINT "PROJECTED SALES FOR YEAR"; 

E70 INPUT Yl 

E79 REM ™ TEST FOR END OF PROGRAM 

S80 IF Y1=0 THEN 3E0 

589 REM - CALCULATE PROJECTED SALES FIGURE 

590 Sl=S-^a-frG)f CV1»1) 

E99 REM - ROUND OFF, PRINT 

300 PRINT » =";INTCS1^1004-«5)/100 

309 REM - RETURN FOR MORE DATA 

310 GOTO 860 
3S0 END 
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Federal Withholding Taxes 



This program calculates the amount of federal income and RCA taxes withheld from one's earnings. You 
must provide employee information as to marital status, the number of exemptions claimed, the amount of taxa- 
ble pay, and year-to-date taxable pay. 

The number of pay periods per year is established at line 80. If your pay period is other than monthly, you 
must alter this statement to set N equal to the number of pay periods per year. 

There is a considerable amount of tax information which may change from year to year. The values listed in 
the data tables at lines 30 and 40 are among those that may need periodic revision. The annual values for single 

and married persons should be compared each year with those listed in Table 7 of the current IRS Circular E. 

The annual FICA rate, the RCA cutoff amount and the annual amount of withholding allowance may also 
need revision. The values established at lines 50, 60 and 70 should also be compared to those listed in the current 
IRS circular. 

Annual rates and cutoffs are used irrespective of your actual pay period frequency. The program automat- 
ically adjusts them to match your pay period. 

Examples: 

Judy earns $900.CW per month. The payroll clerk is figuring her March paycheck. Judy is single and claims 
only herself as a dependent. What amounts are withheld from her paycheck? 

Dr. Berger has earned $1,408.75 this month. So far this year he has grossed $20,188.72. He is married and 
claims four dependents. What amounts will be withheld this month for the federal government? 

: RUM 

FEDERAL WITHHOLDING TAXES 



MARITAL STATUS (1=BINGLE, a=MARRIED)? 1 
WITHHOLDING TAX EXEMPTIONS? 1 
TAXABLE PAY? 900 

YTD TAXABLE PAY? 1800 
TAXABLE = 1J 900 

INCOME TAX = S 188.5 
FICA = * 55.17 

MORE DATA (1=YES, 0=NO)? 1 

MARITAL STATUS Ci=SINGLE. E=MARRIED)? S 

WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAY? 1408.75 

YTD TAXABLE PAY? E3750«03 

TAXABLE = * 1408.75 

INCOME TAX = $ 15E.09 

FICA = * 

MORE DATA <1=YES, 0=NO)? 
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PROGRAM LISTING 

10 PRINT "FEDERAL WITHHOLDING TAXES" 

EO PRINT 

87 REM - THE FOLLOWING DATA CONTAINS THE 1980 TAX TABLES FROM IRS 

58 REM - CIRCULAR E, PERCENTAGE METHOD, TABLE 7 < ANNUAL PAYROLL) 

59 REM - FOR SINGLE PERSONS 

-30 DATA 15. 1420.18,3300, El ,6800 ,S6 aOSOO ,30 ,14200 ,34 ,17S00 ,39,SS500 

39 REM - FOR MARRIED PERSONS 

40 DATA 15, 0400, IS, 6600, El ,10900 ,84 .15000 , SB ,19S00 ,3S ,S3600 ,37 ,S8900 

49 REM - F1=FICA RATE AS DECIMAL 

50 Fi=.0613 

59 REM " FS=FICA CUTOFF AMOUNT 

60 FE=£5900 

69 REM - W1=AM0UNT OF WITH^raLDING ALLOWANCE < ANNUAL PAYROLL) 

70 Wi^iOOO 

79 REM - N=NUMBER OF PAY PERIODS PER YEAR 

80 N=ia 

89 REM - LOAD THE TAX TABLE ARRAYS FROM DATA TABLES 

90 DIM F1(S8) 

100 FOR 1=1 TO S8 

110 READ FiCI) 

ISO NEXT I 

130 PRINT 

139 REM " STATEMENTS 140 TO SIO REQUEST PERTINENT EMPLOYEE DATA 

140 PRINT "MARITAL STATUS (l^SINGLE. S=MARRIED)"| 
150 INPUT S 

160 PRINT "WITHHOLDING TAX EXEMPTIONS "I 

170 INPUT W 

180 PRINT "TAXABLE PAY"^ 

190 INPUT P 

199 REM - Y=TOTAL TAXABLE PAY THIS YEAR, EXCLUDING CURRENT PAYCHECK 

SOO PRINT "YTD TAXABLE PAY"; 

ElO INPUT Y 

El 9 REM - ANNUALIZE CURRENT TAXABLE PAY, ADJUST FOR EXEMPTIONS 

SEO G=P*H--W1*W 

S30 T1=0 

£39 REM - CALCULATE INCOME TAX 

S40 FOR I=S TO 7 

E50 X=E*I-M4* <S-1 ) -1 

S60 IF G<=F1CX-1) THEN 330 

£70 IF OF1CX4-1) THEN 300 

£80 T1=T1+(G~F1 CX-1 ) )*F1 (X~E)/100 

E90 GOTO 330 

300 Ti=Tl-f CFl CX+i )-Fl (X-1 ) ) *F1 <X-S) /lOO 

310 NEXT I 

3S0 T1=T1+CG--F1CX+1'))*F1(X) /lOO 

359 REM - ROUND OFF TO NEAREST CENT 
330 Tl=INT(ITl/N)*100'i-.5)/100 

340 TE=0 

349 REM - CALCULATE FICA 

350 IF Y>FS THEN 400 

360 IF Y4-P>FS THEN 390 

370 TS=INT C <P-»Fi )■»iOO■^ .5 ) /I 00 

380 GOTO 400 

389 REM - ROUND OFF TO NEAREST CENT 

390 TS=INT« C <FS~Y)«F1)*100+ .5)/100 
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399 


REM - 


PRINT RESULTS 


400 


PRINT 


"TAXABLE = $v;P 


410 


PRINT 


"INCOME TAX = *"?Ti 


4E0 


PRINT 


"PICA = *";Ta 


430 


PRINT 




439 


REM - 


RESTART OR END PROGRAM? 


440 


PRINT 


"MORE DATA Ci=YES> 0=NO)"; 


450 


INPUT 


S 


460 


IF S=J 


. THEN 130 


470 


END 
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Tax Depreciation Schedyie 



This program tabulates annua! depreciation amounts. You can use the sum of digits method or any declin- 
ing balance percentage method. You must know the purchase price (initial value), salvage value at the end of the 
depreciable life, and the life of the item being depreciated. If you are doing declining balance depreciation, you 
must also know the percentage method. 

Examples: 

The Miracle Corporation put a new roof on their office building for $27,000.00. They expect to replace it in 
nine years. What would the annual depreciation amounts be using the sum of digits? 

Heavenly Bank built a new home office building for $1.2 million. Run a tax depreciation schedule on the 
building using 150% declining balance method with a 30 year life. Assume a salvage value of $250,000. You will 
notice that the depreciation falls below straight line ($31,666.67) per year) at year nine. 



: RUN 

TAX DEPRECIATION SCHEDULE 



PURCHASE PRICE? E7000 
SALVAGE VALUE? 
LIFE IN YEARS? 9 

ENTER 1 FOR SUH OF DIGITS, 



E FOR DECLINING BALANCE? 1 



SUM OF DIGITS TAX DEPRECIATION 
PRICE * 57000 
SALVAGE VALUE ^ 

NET DEPRECIATED ^ S7000 
LIFE 9 YEARS 



YEAR 
1 

E 
3 
4 
5 
6 
7 
8 
9 



DEPRECIATION 


BALANCE 


5400 


E1600 


4800 


1S800 


4E00 


lESOO 


3600 


9000 


3000 


GOOO 


a4oo 


3600 


1800 


1800 


lEOO 


600 


600 






MORE DATA?<1=YES,0=NO)? 1 



PURCHASE PRICE? lEOOOOO 
SALVAGE VALUE? E50000 

LIFE IN YEARS? 30 

ENTER i FOR SUM OF DIGITS, 

METHOD IN %? 150 



a FOR DECLINING BALANCE? B 



165 



DECLINING BALANCE TAX DEPRECIATION 
PRICE ^ lEOOOOO 
SALVAGE VALUE ^ E50000 
NET DEPRECIATED t* 950000 
LIFE 30 YEARS 
METHOD 150 % 



YEAR 
i 

E 
3 
4 

G 

6 

7 

8 

9 

10 

11 

IS 

13 

14 

15 

16 

17 

18 

19 

EO 

ei 

£S 

03 
E4 

£5 
E6 
07 
E8 

29 
30 



DEPRECIATION 
47500 
451S5 
4E8G8.75 
407S5.31 
38689,05 
36754 » 59 
34916.87 
33171. OE 
3151E.47 
S9936»85 
£8440 
S7018 
S5667»l 
S4383»75 
£3164.56 
SS006,.33 
£0906. OS 
19860.7S 
18867.68 
179E4«3 
170ES.08 
16176.68 
15367.84 
14599.45 
13869.48 
13176.01 
1E517.S 
11891 .34 
11E96«7S 
10731.94 



BALANCE 
902S00 
857375 
814506. E5 
773780^94 
735091 o89 
698337 a 3 
6634S0.43 
630S49.41 
598736^94 
568800^09 
540360^09 
51334S»09 
487674.99 
463S91 .S4 
4401S6.68 
4181E0.35 
397S14.33 
377353.61 
358485,93 
340561^63 
3£3533«55 
307355 « 87 
£91989.03 
E77389«58 
E635S0.1 
£50344. 09 
E378S6aS9 
SS5935.55 
£14638 «77 
£03906.83 



MORE DATA?a=YES,0=NO>? 
END PROGRAM 

PROGRAH LISTING 

10 PRINT "TAX DEPRECIATIUN SCHEDULE" 

SO PRINT 

£9 REH - ENTER INITIAL VALUE AND ROUND OFF TO NEAREST CENT 

30 PRINT "PURCHASE PRICE"! 

40 INPUT V 

50 V=INT(V*100-f .5)/100 

59 REH - ENTER END VALUE AND ROUND OFF TO NEAREST CENT 

60 PRINT "SALVAGE VALUE"; 
70 INPUT S 

80 S=INT(S*1004-„5>/100 

89 REM - COMPUTE AMOUNT TO DEPRECIATE 
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90 
99 
100 
110 
119 
ISO 
130 
140 
150 
158 
159 
160 
169 
170 
180 
190 

eoo 

209 

aio 

219 

EEO 

E30 

S40 

250 

E60 

£70 

£80 

290 

300 

310 

3E0 

329 

330 

340 

349 

350 

359 

360 

369 

370 

380 

390 

400 

410 

4E0 

430 

440 

448 

449 

450 

460 

4b9 

470 

479 

480 

489 

490 



D=V--S 

REM - ENTER LENGTH OF DEPRECIATION 

PRINT "LIFE IN YEARS"; 

INPUT V 

REM •» CHOOSE DEPRECIATION METHOD 

PRINT "ENTER 1 FOR SUM OF DIGITS, E FOR DECLINING BALANCE"; 

INPUT X 

IF X=E THEN 450 

IF XOl THEN lEO 

REM - BY SUM OF DIGITS METHOD 

REM - Rl IS THE CUMULATIVE AMOUNT DEPRECIATED 

Rl-0 

REM - N IS THE PRINTED LINE COUNTER 

N=66 

PRINT 

PRINT 

FOR I»l TO Y 

REM - TEST FOR FULL PAGE 

IF N<55 THEN 330 

REM - FULL PAGE; SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS 

FOR I1~N TO 66 

PRINT 

NEXT 11 

N=7 

PRINT " 

PRINT " 

PRINT " 

PRINT » 

PRINT " 

PRINT 

PRINT "YEAR " , "DEPRECIATION " , "BALANCE " 

REM - COMPUlE DEPRECIATION AND ROUND OFF TO NEAREST CENT 

R=E*D*<Y~I4-1 )/< (Y+l )*Y) 

RsINT<R*100+,5)/100 

REM - ACCUMULATE DEPRECIATION 

Rl=Ri-fR 

REM - COMPUTE BALANCE TO DEPRECIATE 

B=D~R1 

REM - TEST FOR COMPLETE DEPRECIATION 

IF B>=0 THEN 410 

Rl=Rl-i-B 

R=R-fB 

B=0 

PRINT I,R,B 

N=N-«-i 

NEXT I 

GOTO 700 

REM - BY DECLINING BALANCE METHOD 

REM -• ENTER DECLINING BALANCE PERCENT 

PRINT "METHOD IN %"; 

INPUT M 

REM ~ CONVERT PERCENT TO DECIMAL 

M=M/100 

REM - N COUNTS THE LINES PRINTED ON EACH PAGE 
N=6S 

REM - R IS THE AMOUNT LEFT TO DEPRECIATE 
R=D 



SUM OF DIGITS TAX DEPRECIATION 
PRICE $";v 
salvage value ^";s 
net depreciated $";v-s 
life";y; " years" 
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500 

510 
519 

5eo 

5E9 
530 
540 

550 
560 
570 
580 
590 
600 
610 
GEO 
630 
640 
649 
650 
659 
660 
670 
6S0 
690 
700 
709 
710 

7ao 

730 

740 



PRINT 

FDR 1=1 TO Y 

REH - TEST FOR A FULL PRir-4TED PAGE 

IF N<55 THEN 650 

REM ~ FULL PAGE? SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS 

FOR I1=N TO 66 

PRINT 

NEXT 11 

N=S 

PRINT " 

PRINT " 

PRINT •' 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT "YEAR" , "DEPRECIATION" . "BALANCE" 

REM - COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT 

R1=INT< <R*M/Y)*100-t-=5)/100 

REM ~ ACCUMULATE REMAINING BALANCE 

R=R-R1 

PRINT I,R1,R 

N=N"^i 

NEXT I 

PRINT 

REM - RESTART OR END PROGRAM? 

PRINT "MORE DATA?a=YES»0=NO)"? 

INPUT X 

IF X=l THEN EO 

END 



DECLINING BALANCE TAX DEPRECIATION" 
PRICE ^"1V 
SALVAGE VALUE ^";S 
NET DEPRECIATED $";D 

life";y; "years " 

METHOD "?M*100?"%" 
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Check Writer 



This program prints a check. You must provide the date, amount and payee of the check. The program 
translates the date and amount to words and prints providing spacing within the check. 

You should regard the program listed below as a sample of a check-writing program. Very few checks will 
conform exactly to the spacing provided in this program. The method of translating words from numbers is 
generally applicable. Spacing should be altered to conform to your own check format. 

When the program asks the question READY TO PRINT CHECK? it is prompting you to insert a 
blank check in your printing device. The check should be set one line above the line on which the date is to be 
printed. 

Once the check is set up, key RETURN (no other entry is required) and the check will be printed. 



Example: 

Among the checks that Miracle Corporation must write are one to Osborne & Associates for $4975.89 and 
one to Freida Alexander for $103.75. Print the checks using the computer. 

: RUi-l 

CHECK WRITER 

DATE (MMDDVV)? 30877 

-"(TO END PROGRAM ENTER 'ENDM — 

FIRST NAME OF PAYEE? OSBORNE & 

LAST NAME OF PAYEE? ASSOCIATES 

AMOUNT -OF CHECK? 4975.89 

READY TO PRINT CHECK? 



HEAVENLY BANK 
EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE, CA 94601 

PAY TO THE ORDER OF 


OSBORNE & 


ASSOCIATES 


NO. 
MARCH 8 19 77 
AMOUNT $ 4975.89 


328 


FOUR THOUSAND 


NINE HUNDRED 


SEVENTY- 


-FIVE 


DOLLARS 


AND 89 CENTS 




MIRACLE CORPORATION 
1111 COUNTRY ROAD 
COUNTRYVILLE, CA 94132 


















1328252158 
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FIRST NAME OF PAYEE? FREIDA 
LAST NAHE OF PAYEE? ALEXANDER 
AMOUNT OF CHECK? 103.75 
READY TO PRINT CHECK? 



HEAVENLY BANK ^^- ^82 

EMERYVILLE OFFICE 

4120 ASHBY AVENUE MARCH B 19 77 

EMERYVILLE, CA 94601 \mm\m^ 

AMOUNT $ 103.75 

PAY TO THE ORDER OF FREIDA ALEXANDER 

ONE HUNDRED THREE DOLLARS AND 75 CENTS 



MIRACLE CORPORATION 
1111 COUNTRY ROAD 
COUNTRYVILLE, CA 94132 



1 3282521 5S 



FIRST NAME OF PAYEE? END 
END PROGRAM 

PROGRAH LISTING 

10 PRINT "CHECK WRITER" 
ao PRINT 

30 DATA "ONE " . "TWO " , "THREE " , "FOUR " . ^TIVE " , "SIX " , "SEVEN " , "EIGHT " , "NINE » 
40 DATA "TEN " , "ELEVEN '' , "TWELVE " , "THIRTEEN " , "FOURTEEN " , "FIFTEEN " , "SIXTEE 
N" 

50 DATA "SEVENTEEN " , "EIGHTEEN " , "NINETEEN " , "TWENTY " . "THIRTY " , "FORTY " 
60 DATA »«FIFTY " , "SIXTY " , "SEVENTY " . "EIGHTY " , "NINETY " 
70 DATA "JANUARY " , "FEBRUARY " , "HARCH " , "APRIL " . "MAY " , "JUNE " , "JULY " 
SO DATA "AUGUST " ., "SEPTEH3ER " , "OCTOBER " , "NOVEHBER " , "DECEMBER " 

89 REM ~ ENTER DATE WITHOUT COMMAS! DAY AND YEAR MUST CONTAIN TWO DIGIT 
S 

90 PRINT "DATE CMMDDYY)"^ 
100 INPUT D 

110 PRINT "-- -CTO END PROGRAM ENTER 'END')-—" 

lEO PRINT "FIRST NAME OF PAYEE"! 

130 INPUT F* 

139 REM ™ END PROGRAM? 

140 IF F*="END" THEN 790 

150 PRINT "LAST NAME OF PAYEE"? 

160 INPUT L* 

170 PRINT "AMOUNT OF CHECK "? 

180 INPUT A 

189 REM - INSERT BLANK CHECK IN PRINTING DEVICE. KEY RETURN WHEN READY 

190 PRINT "READY TO PRINT CHECK"; 
aOO INPUT X 

EOS REM - BREAK ENTERED DATE NUMBER INTO MONTH, DAY. YEAR FIGURES 
ElO D1«INT<D/10000) 

170 



aso 

839 
S40 

£50 
859 

eeo 

869 
E70 
£80 
290 
300 
310 
319 
3E0 
330 
339 
340 
349 
350 
360 
370 
380 
390 
399 
400 
410 
480 
430 
440 
449 
450 
460 
470 
480 
490 
500 
510 
519 
5E0 
5E9 
530 
540 
550 
559 
560 
569 
570 
580 
590 
600 
610 
6E0 
6E9 
630 
639 
640 



DS=INT ( (D~D1*10000 ) /lOO ) 

D3=INT<D-(Di^lOO-^DS)*iOO) 

REH - GO TO CORRECT MONTH 

RESTORE S7-fDl 

READ XO* 

REH - PRINT DATE 

, , ,xo*;DS;" "?D3 
PRINT AMOUNT TWICE? 

.,,"*»; A 

U II s A 

J > ¥ » r=1 



IN DATA TABLE 



FIRST TIME FOR SHADED BOX 



,F*;" "1L$ 



LEGITIMATE? 



PRINT 

REM -' 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REM - AMOUNT OF CHECK 

IF A<=0 THEN 770 

A1=A 

REM - AMOUNT IN THE THOUSANDS? 

N1=INT<A1/1E3) 

REM - CAN'T PRINT FOR AMOUNT OVER *99999«99 

IF Nl >99 THEN 770 

IF N1=0 THEN 390 

GOSUB 640 

PRINT "THOUSAND '' I 

A1=A1-N1*1E3 

REM - AMOUNT IN THE HUNDREDS? 

Nl=INT(Al/iOO) 

IF N1=0 THEN 440 

GOSUB 640 

PRINT "HUNDRED "; 

Al=Ai-Nl*100 

REM - AMOUNT IN THE ONES OR TENS? 

N1=INTCA1) 

IF Ni>0 THEN 490 

IF A>=i THEN 500 

GOTO 510 

GOSUB 640 

PRINT "DOLLARS "? 

Ai^Al-Nl 

REM - ANY CENTS? 

IF AK.Ol THEN 600 

REM - IF AMOUNT IS CENTS ONLY DON'T PRINT 'AND' 

IF A<1 THEN 550 

PRINT "AND"; 

A1=A1^100 

REM - CENTS ARE PRINTED IN NUMERIC FORM 

PRINT Al? "CENTS" 

REM - SPACE OFF OF CHECK 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REM - 

GOTO 

REM - 



RESTART PROGRAM 

ISO 

SUBROUTINE TO GET WORDS FOR. NUMBERS 



IF NKSl THEN 730 
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650 RESTORE (Nl-SO ) /iO-^EO 

660 READ X0$ 

670 PRINT XO*? 

680 A3=N1-INT<N1/1O)*10 

690 IF A3=0 THEN 760 

700 PRINT "-"? 

710 RESTORE A3 

7E0 GOTO 740 

730 RESTORE Hi 

740 READ XO^ 

750 PRINT XO*? " "; 

759 REM - END OF SUBROUTINE 

760 RETURN 

770 PRINT , "**^t*4^V0ID*****" 

7B0 GOTO 570 

790 END 
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Recipe Cost 

This program calculates the cost and the cost per serving of a single recipe. For each ingredient you must 

provide the purchase price, the amount purchased, the amount used in the recipe, and the number of recipe units 

per purchase unit. 

Example: 

Listed below is a recipe for strawberry shortcake. Calculate the cost of the recipe and the cost per serving. 
What would the cost per serving be if one cake serves 12? The conversion factors and price per ingredient are 
supplied. 

Strawberry Shortcake — 8 servings 





3 c. flour 


2.5 c./lb. 


$1.59 5 lb. 




3V4tsp. baking powder 


15 tsp./oz. 


.43 4 oz. 




V'i c. sugar 


2 c./lb. 


T.24 5 lb. 




1 V4 tsp. salt 


6 tsp./oz. 


.29 1 lb. 




V2 c. butter 


2 c./lb. 


1.49 1 lb. 




1 egg 


12/doz. 


.75 1 doz 




Vz c. milk 


4 c./qt. 


.40 1 qt. 




3 pts strawberries 




.49 1 pt. 




V2 pt. whipping cream 




.59 Vapt. 


S RUN 








RECIPE COST 









NUMBER OF INGREDIENTS? 9 
INGREDIENT 1 I 

COST FOR BULK UNIT IN STORE? 1.59 

NUHBER OF UNITS IN BULK? 5 

NUMBER OF RECIPE UNITS PER BULK UNIT? S.B 

NUMBER OF RECIPE UNITS CALLED FOR? 3 
INGREDIENT E I 

COST FOR BULK UNIT IN STORE? .43 

NUMBER OF UNITS IN BULK? 4 

NUMBER OF RECIPE UNITS PER BULK UNIT? 15 

NUMBER OF RECIPE UNITS CALLED FOR? 3.S5 
INGREDIENT 3 S 

COST -FOR BULK UNIT IN STORE? i aE4 

NUMBER OF UNITS IN BULK? 5 

NUMBER OF RECIPE UNITS PER BULK UNIT? E 

NUMBER OF RECIPE UNITS CALLED FOR? «e5 
INGREDIENT 4 : 

COST FOR BULK UNIT IN STORE? .E9 

NUMBER OF UNITS IN BULK? 1 

NUMBER OF RECIPE UNITS PER BULK UNIT? 96 

NUMBER OF RECIPE UNITS CALLED FOR? 1,05 
INGREDIENT 5 I 

COST -FOR BULK UNIT IN STORE? i .49 

NUMBER OF UNITS IN BULK? 1 

NUMBER OF RECIPE UNITS PER BULK UNIT? 8 

NUMBER OF RECIPE UNITS CALLED FOR? »5 
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INGREDIENT 6 : 

COST FOR BULK UNIT IN STORE? «75 

NUMBER OF UNITS IN BULK? 1 

NUMBER OF RECIPE UNITS PER BULK UNIT? IE 

NUMBER OF RECIPE UNITS CALLED FOR? 1 
INGREDIENT 7 i 

COST -FOR BULK UNIT IN STORE? .40 

NUMBER OF UNITS IN BULK?-1 

NUMBER OF RECIPE UNITS PER BULK UNIT? 4, 

NUMBER OF RECIPE UNITS CALLED FOR? .6666667 
INGREDIENT 8 I 

COST FOR BULK UNIT IN STORE? «49 

NUMBER OF UNITS IN BULK? i 

NUMBER OF RECIPE UNITS PER BULK UNIT? i 

NUMBER OF RECIPE UNITS CALLED FOR? 3 
INGREDIENT 9 ? 

COST FOR BULK UNIT IN STORE? .59 

NUMBER OF UNITS IN BULK? 1 

NUMBER OF RECIPE UNITS PER BULK UNIT? 1 

NUMBER OF RECIPE UNITS CALLED FOR? 1 
NUMBER -OF SERVINGS? 8 

TOTAL COST FOR 1 RECIPE « * 3 
COST PER SERVING = * .38 

CHANGE NUMBER OF SERVINGS ( 1 =YES , 0-=ND ) ? 1 
NUMBER OF SERVINGS? 12 

TOTAL COST FOR 1 RECIPE = * 3 
COST PER SERVING = * .E5 

CHANGE NUMBER OF SERVINGS C1=VES,0=ND)? 

END PROGRAM 



PROGRAM LISTING 

10 PRINT "RECIPE COST" 

EO PRINT 

E9 REM - STATEMENTS 30 TO 180 REQUEST USER INPUT 

30 PRINT "NUMBER OF INGREDIENTS"? 

40 INPUT N 

49 REM » LOOP TO REQUEST DATA FDR EACH INGREDIENT 

50 FOR 1=1 TO N 

60 PRINT "INGREDIENT" ;l;":" 

70 PRINT " COST FOR BULK UNIT IN STORE"; 

80 INPUT C 

90 PRINT " NUMBER OF UNITS IN BULK"; 

100 INPUT U 

110 PRINT " NUMBER OF RECIPE UNITS PER BULK UNIT"? 

lEO INPUT F 

130 PRINT " NUMBER OF RECIPE UNITS CALLED FOR"? 

140 INPUT R 

149 REM " SUM COST OF EACH INGREDIENT PER AMOUNT USED 

150 P=P^C/U/F*R 
160 NEXT I 
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170 


PRINT 


180 


INPUT 


190 


PRINT 


199 


REH - 


aoo 


PRINT 


eio 


PRINT 


EEO 


PRINT 


Ea9 


REH - 


S30 


PRINT 


840 


INPUT 


E50 


IF N= 


S60 


END 



'NUHBER OF SERVINGS"? 



ROUND OFF COSTS TO NEAREST CENT, PRINT RESULTS 
"TOTAL COST FOR 1 RECIPE = *" ?INT (P»100+ .5) /lOO 
"COST PER SERVING * ^" ;INT<P/S*100+ .5) /lOO 

CALCULATE ALTERNATIVE PRICE. PER SERVING? 
"CHANGE NUMBER OF SERVINGS a=YES,0=NO> " ; 
N 
. THEN 170 



OPTION 



As you become familiar with the operation of this program you may wish to shorten it by entering the infor- 
mation required for each ingredient on one line. The program changes necessary are listed following the example 
below. 

Example: 

Calculate the cost per serving of Strawberry Shortcake in the previous example when it Is served without 
cream. 

:RUN 
RECIPE COST 

NUMBER OF INGREDIENTS? 8 
INGREDIENT 1 ? 1,59,5,S«5,3 
INGREDIENT S ? .43,4,15,3.35 
INGREDI-ENT 3 ? i.S4,5»S,.S5 
INGREDIENT 4 ? .S9,l ,96,1 ^85 
INGREDI-ENT 5 ? 1.49a,S,.5 
INGREDIENT 6 ? .75,1,18,1 
INGREDI-ENT 7 ? .40 ,1 ,4, « 6666657 
INGREDIENT 8 ? .49,1,1,3 
NUMBER -OF SERVINGS? 8 

TOTAL COST FOR 1 RECIPE « ^ 8,41 
COST PER SERVING = * .3 

CHANGE NUMBER OF SERVINGS C 1 «=VES , O-^ND ) ? 1 
NUMBER OF SERVINGS? IS 

TOTAL COST FOR 1 RECIPE « ^ e»41 
COST PER SERVING * * .2 

CHANGE NUMBER OF SERVINGS CI =VES , 0-»NO ) ? 

END PROGRAM 
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PROGRAH LISTING 

1 REM -» OPTION 55-70 

10 PRINT "RECIPE COST" 

e 
e 
& 

50 FOR I^i TO H 

55 REH - ENTER C.U,F,R 

56 REM -- WHERE ONCOST FOR BULK UNIT 

57 REM - U-NUMBER UNITS IN BULK UNIT 

58 REM - F=sRECIPE UNITS PER BULK UNIT . 

59 REM "" R===NUMBER RECIPE UNITS CALLED FOR 
SO PRINT "INGREDIENT";!? 

70 INPUT C,U,F,R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 

s 

S60 END 
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. . Courtesy: Robert Irving 

' ^ California 

This program calculates the error of closure and area of a plot for which a traverse of the perimeter is 
available. The program will also calculate how far North and East the end of an open traverse is from its 
origin (the Northing and Easting). The local coordinates of the origin can be entered for an open traverse. 
Negative values of Northing and Easting are South and West, respectively, of the 0,0 origin of the survey. 

The individual legs of the traverse may be either straight lines or arcs of circles. To compute the tra- 
verse, you must have the bearing and length of each straight leg. You also need the radius, bearing of 
chord, and length of chord (or radius, arc measure, and bearing of a tangent) for each curved leg. 

For a closed survey, pick any intersection of legs as a starting point, and number the lines and arcs, 
starting with one, in ac/ockwise direction around the perimeter. If any arc is 180 degrees or more, it must be 
broken into smaller arcs, each less than 180 degrees. 

By convention, surveyors measure bearings East and West of North and South, as shown in the 
following figure. This convention was established in the days before computers, so that trigonometric 
functions could be easily looked up in tables not exceeding 90 degrees. For each leg, you must enter the 
quadrant number and the degrees, minutes and seconds East or West of the North-South axis. The pro- 
gram will indicate the direction of the leg (e.g., SW), and will convert the quadrant degrees, etc. to an 
azimuth angle. Azimuth is measured clockwise from North to 360 degrees. 

N 




Quadrant numbering scheme. Note angles 
are measured from the North-South line. 

A curved leg, or arc, is defined by two auxiliary legs, each of which is a radius of the arc. The bearing 
of the first auxiliary leg is the direction of the radius from the first encountered end of the arc to the center 
of the arc. You can compute this bearing from the bearing of the arc's tangent at that point, since the 
radius is perpendicular to the tangent. The survey may show the bearing of the tangent. If not you can 
compute it by adding one half the angular extent of the arc to the bearing of the arc's chord, as shown in 
the next figure. 



Tangent 



Bearing of Tangent = Bearing of Chord -f 2 




Radius 



Tangent 
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The bearing of the second radius is from the center of the arc to the other end, and the distance is en- 
tered as a negative nunnber to signal to the computer that this and the prior leg are not perimeter legs, but 
auxiliary legs of an arc. 

The program asks you for the bearing and distance of each leg by number. Legs are entered in sets of 
ten for less). Following the last entry in a set, you can correct any leg in the set. You must enter both auxili- 
ary legs of an arc in the same set You can enter a bearing of zero to end one set, and then enter more legs 
on the next set 

When you have corrected a set a traverse table is printed for the set This includes each leg number, 
direction, azimuth angle and distance, and incremental and cumulative Northing and Easting. The cumula- 
tive Northing and Easting after the last leg on a closed survey gives the error of closure. Arc angle, radius, 
sector area, chord length, and tangent length are printed between the two auxiliary legs of each curved 
leg. 

Following the printout of the last leg of a closed survey, the area of the plot will be printed, both In 
square feet and in acres. The area computed is very accurate provided two conditions are met: 

1) the error of closure is small (0.01 feet is usual for a house lot), and 

2) the area is sufficiently small that curvature of the earth does not become significant Surveys covering 
several tens of miles have to account for this latter factor. 

Example" 

The figure below illustrates the boundaries of a lot with one curved side. The leg numbers are circled. 
Bearings and distances are shown for each leg. Find the error of closure and lot area. 




® S39°0"E 

149.83 
@ S39°0"E 
50.00 

@ N85°23'53"W 
50.00 

N85°23'53"W 
114.32 

® N1°5'0"E 
132.78 

© N46°0'0"E 
14.00 

@ S89°0'0"E 
25.46 
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: RUN 

HAP CHECK - SURVEY CLOSURE & AREA 

OPEN (i) OR CLOSED CO) SURVEY? 

NEXT SET OF LEGS: 

LEG NOe 1 ^QUADRANT, DEGREES, MINUTES, SECONDS? E, 39, 0,0 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? 149^83 

LEG NO. E ;i QUADRANT, DEGREES, MINUTES, SECONDS? 8,39,0,0 

DISTANCE 0«GATIVE IF OUTWARD RADIUS)? 50 

LEG NO^ 3 ^QUADRANT, DEGREES, MINUTES, SECONDS? 4,85,E3,53 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? -50 

LEG NO. 4 SQUADRANT, DEGREES, MINUTES, SECONDS? 4,S5,E3,53 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? 114-32 

LEG NO. 5 SQUADRANT, DEGREES, MINUTES, SECONDS? 1,1,5,0 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? 13Ee78 

LEG NO. 6 ^QUADRANT, DEGREES, MINUTES, SECONDS? 1,4S,0,0 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? 14 

LEG NO. 7 ^QUADRANT, DEGREES, MINUTES, SECONDS? E, 89, 0,0 

DISTANCE (NEGATIVE IF OUTWARD RADIUS)? E5.46 

LEG NO. 8 ^QUADRANT, DEGREES, MINUTES, SECONDS? 0,0,0,0 

CORRECT WHICH LEG IN THIS SET (0=NO MORE CHANGES)? 

LEG/DIR. AZIMUTH /DIST. DEL N/DEL E NORTHING /EASTING 

0/0 

1 /SE 141 / 149.83 -116.44 / 94»E9i -116.44 / 94.E91 

a /SE 141 / 50 -38»857 / 31 e466 »155«S97 / ia5a757 

ARCI 46 E3 53 R= 50 A- E0E4«497 C= 39^393 T= El «4E9 

3 mm E74 35 7/50 4 »OiE /-49»839 -151 «E85 / 75^918 

4 /NUf E74 36 7 / 114.38 9^170 /-113»951 -148.113 /-3Sa033 

5 /HE 1 4 60 / 138.78 1 38^756 / S«51 -9.357 /-35«5a3 

6 /HE 46 0/14 9.785 / 10«071 »368 /-85»45a 

7 /SE 91 / 85.46 «..,444 / 85.455 -7«60E-0a / 4«0E-03 

ANY MORE LEGS (i-YES, 0=NO)? 
PLOT AREA IS 13347 « 683 SQ« FT. 

PLOT AREA IS «30648064 ACRES 

STOP 
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PROGRAM LISTING 

3 REM - MAP CHECK & AREA OF PLOT 

4 REM - FOR CLOSED SURVEY FOLLOW TRAVERSE CLOCKWISE 

5 REM ~ KEEP PLOT TO RIGHT OF EACH PERIMETER LEG 

6 REM - COMPUTE AUXILIARY LEGS AS RADII AT EACH 

7 REM - END OF ARC- ARC < 180 DEGREES 

8 REM 

9 REM ~ VALUE OF PI 
iO Pi=3. 141592654 

14 REM - KO = NOe OF LEGS PER SET 

15 K0=10 

eO DIM B<10) ,L(10) 

89 REM - CO* CONTAINS 'CLEAR SCREEN' CHARACTER 
30 C0^=HEX(03) 

39 REM - FNR(X) ROUNDS X TO 3 DECIMAL PLACES 

40 DEFFHR(X)=INT(X-«-1000-f «5 )/1000 

49 REM ~ R IS CONVERSION FACTOR FDR DEGREES TO RADIANS 

50 R=l .7453E9S51E-S 

60 PRINT C0^S"MAP CHECK - SURVEY CLOSURE 5. AREA" 

70 PRINT "OPEN CI)- OR CLOSED CO) SURVEY"; 

80 INPUT F 

90 IF F=0 THEN lEO 

100 PRINT "ORIGIN: NORTHING .EASTING " ^ 

110 INPUT N,E 

laO PRINT CO*; "NEXT SET OF LEGS:" 

1E5 G=H 

130 FOR K=i TO KO 

139 REM - INPUT BEARING AND DISTANCE FOR NEXT LEG 

140 GOSUB SOOO 

149 REM - IF BEARING IS 0, END INPUT FOR THIS SET 

150 IF Q=0 THEN 170 
155 G=G-i-l 

150 GOTO E40 

169 REM - ZERO UNUSED LEGS IN THIS SET 

170 IF K=KO THEN E30 
180 FDR J=K+-1 TO KO 
190 BCJ)=0 

EOO LCJ)=0 

aiO NEXT J 

E30 K=KO 

E40 NEXT K 

E60 PRINT "CORRECT WHICH LEG IN THIS SET C0==NO MORE CHANGES) 

a70 INPUT K 

E79 REM - NO CHANGES IF INPUT 

S80 IF K=0 THEN 310 

E85 K=K-H 

090 GOSUB aooo 

300 GOTO E60 

309 REM - COMPUTE VALUES AND PRINT TRAVERSE TABLE 

310 PRINT 

315 PRINT "LEG/DIR. AZIMUTH/DIST . " ; 

330 PRINT " DEL N /DEL E NORTHING /EASTING " 

330 PRINT ,, ,FNRCN)?"/";FNRCE) 

340 PRINT 

350 FOR K=l TO KO 

360 L1=LCK) 

180 



369 
370 
380 

388 
389 
390 
400 
410 

4ao 

4E9 
430 
440 

449 
450 
460 
470 

480 

490 
500 

510 
5E0 
530 
540 
550 
560 
570 
580 
590 
600 
610 

6ao 

630 
640 

650 
660 
670 
680 
690 
700 
710 
7S0 
730 
740 
750 
750 
770 
780 
790 
800 
810 
8S0 
083 
830 
840 
050 
860 
870 



REM - CHECK FOR ARC 

IF LKO THEN 1100 

IF L1=0 THEr-4 900 

REM - COMPUTE NORTHING /EASTING INCREMENT (CONVERT 

REM - BEARINGS FROM DEGREES TO RADIANS) 

L=LCK)«COS<B(K)*R) 

D=L^K)*SIN<B<K)*R) 

N=N-s-L 

E=E4-D 

REM - INCREMENT AREA 

A=A-E*L4-N*D 

PRINT h+k; "/"? 

REM - FROM BEARING, DETERMINE DIRECTION 

IF BCK)=0 THEN 470 

GOTO 490 

PRINT "N"? 

GOTO 830 

IF B(K)<90 

GOTO 530 

PRINT "NE" 

GOTO 830 

IF B(K)=90 

GOTO 570 

PRINT "E "; 

GOTO 830 

IF BCKX180 

GOTO 610 

PRINT "SE"? 

GOTO 830 

IF BCK)=180 

GOTO 650 

PRINT "S "; 

GOTO 830 

IF BCKXE70 

GOTO 690 

PRINT "SW"! 

GOTO 830 

IF BCK)=E70 

GOTO 730 

PRINT "W "; 

GOTO 830 

IF B(K)<360 

GOTO 770 

PRINT "NW"; 

GOTO 830 

IF BCK)=360 

GOTO 810 

PRINT "N '•; 

GOTO 030 

BCK)=B(K)-360 

GOTO 450 

REM - BREAK BEARING INTO DEGREES, MINUTES, SECONDS 

D1=INTCB<K) ) 

Mi=<B<K)-Dl )*60 

M=INT(M1) 

S=INTC <Ml-M)*60-i-.5) 

PRINT " "^.Di?M;SrV";FNRCLCK)) .FNRCL); 



THEN 510 



THEN 550 



THEN 590 



THEN 630 



THEN 670 



THEN 710 



THEN 750 



THEN 790 
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880 

885 

090 

900 

910 

9E0 

930 

940 

949 

950 

960 

970 

980 

990 

1000 

1099 

1100 

1110 

llEO 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

lEOO 

leio 

lEEO 
1S30 
1S40 
1S50 
1S60 
1S70 
1E80 
1S90 
1300 
13S0 
1999 
EOOO 
SOlO 
SOSO 
E030 
E040 
E050 
E060 
E070 
SOSO 
S090 
SlOO 
SllO 
EISO 
S130 
S140 
E150 
S160 
S170 



;fnr(A)?"sq„ ft«" 

; I NT ( A/43560*lE8-4" »5 ) /1E8 ; "ACRES" 



PRINT "/";fnr<d);fnr(N) ;"/";fnr(E) 

PRINT 

L<K)=L1 

NEXT K 

H=G 

PRINT "ANY MORE LEGS < 1 =YES , 0-NO)' 

INPUT U 

IF UOO THEN ISO 

REH - NO AREA FOR OPEN SURVEY 

IF FOO THEN 1000 

A=ABS<A/S) 

PRINT "PLOT AREA IS 

PRINT 

PRINT "PLOT AREA IS 

STOP 

REM - CALCULATE CURVED LEG AND PRINT ON TRAVERSE TABLE 

C=ABS<B<K)-B(K-1) ) 

C=ABS<1S0-C) 

D=-L1 

L < K ) =D 

Al=C/180*Pl*D-ftD 

C1=S*D*SIN(C/S*R) 

T=D*TAN<C/S*R) 

B9=BCK)-B(K-i) 

IF B9<--180 THEN 1S30 

IF B9>1S0 THEN ISiO 

IF B9>0 THEN lESO 

A=A4-A1 

■ GOTO 1E40 

A=A-Ai 

D1=INTCC) 

ril = CC-Di)*S0 

H=INTCH1) 

S=INTC (Ml~M)*60+.5) 

PRINT " ARCS "?D1?M?S;"R="?FNR(D); "A=";FNR«A1);"C=»; 

PRINT FNRCC15; "T=";FNR(T) 

PRINT 

GOTO 390 

REM " INPUT 

B(K)=0 

L<K)=0 

PRINT "LEG NO. 

INPUT Q,D,M,S 

IF Q=0 THEN SS70 

IF Q>4 THEN SOSO 

IF Q<0 THEN SOSO 

IF D<0 THEN SOSO 

IF M<0 THEN SOSO 

IF S<0 THEN SOSO 

B(K)=D+(M4-S/60)/60 

IF BCK)>90 THEN SOSO 

IF Q=l THEN SSSO 

IF Q=S THEN SI 50 

GOTO Si 70 

B<K)=180-B<K) 

GOTO SSSO 

IF Q=3 THEN SI 90 



DATA FOR ONE LEG 



',HW.^, " : QUADRANT , DEGREES .MINUTES , SECONDS 
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ai80 GOTO aaio 

E190 B<K)=180+B(K) 

aSOO GOTO EEBO 

ESiO IF Q04 THEN EEEO 

SEiS B(K)=360-B(K) 

EEEO PRINT "DISTANCE (NEGATIVE IF OUTWARD RADIUS)"; 

SE30 INPUT L(K) 

ES40 IF L(K)>0 THEN EE70 

SS50 IF ABS(L(K)><>ABS<L(K"-1 )) THEN EEEO 

EE70 RETURN 

9999 END 
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Day of the Week 



This program calculates the day of the week that a given date falls on. It will figure, for example, that 

December 25, 1980 will be a Thursday. 

You must enter the date in numeric form and in the order of month, day, year. September 12, 1975 will be 
entered as 9 , IS ^ 1975 , making certain that commas, not slashes or dashes, separate the figures. 

Examples: 

Cindy's birthdate is March 4, 1953. On what day was she bom? 

Uncle Lon has an appointment on September 30, 1977. What day is that on? 

I RUN 

DAY OF THE WEEK 

CENTER 0,0,0 TO END PROG RAH) 
HONTH, DAY, YEAR? 3,4,1953 
WEDNESDAY 

HONTH, DAY, YEAR? 9 » 30 ,1977 
FRIDAY 

HONTH » DAY, YEAR? 0,0 »0 

END PROGRAM 

PROGRAH LISTING 

10 PRINT "DAY OF THE WEEK" 
eO PRINT 

E9 REM - REQUEST USER INPUT 

30 PRINT "(ENTER 0,0,0 TO END PROGRAH)" 

40 PRINT "HONTH, DAY, YEAR"; 

50 INPUT H,D,Y 

59 REM - TEST FOR END OF PROGRAM 

60 IF MOO THEN 100 
70 IF D<.>0 THEN 100 
BO IF YOO THEN 100 
90 GOTO 3S0 

99 REM - NEED TO ADJUST INPUT FOR CALCULATIONS'^ 

100 IF M.>E THEN 130 

109 REM » ADJUST INPUT 

110 M=M4-iE 
laO Y=Y-i 

1E9 REM - CALCULATE DAY NUMBER 

130 N=D+E*M-t-INTC aG^CM+i) ) -^-Y-^INT (Y/4 ) -INT ( Y/lOO ) -MNT C Y/400 ) -fS 

140 N=INT( CN/7~INT<N/7) >*7+,5) 

149 REM - FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT 

150 IF N>0 THEN 180 
160 PRINT "SATURDAY" 
170 GOTO 340 
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180 IF N>1 THEN ElO 

190 PRINT "SUNDAY" 

SOO GOTO 340 

aiO IF N>a THEN E40 

eeo PRINT "MONDAY" 

E30 GOTO 340 

840 IF N>3 THEN E70 

£50 PRINT "TUESDAY" 

S60 GOTO 340 

S70 IF N>4 THEN 300 

£80 PRINT "WEDNESDAY" 

S90 GOTO 340 

300 IF N>5 THEN 330 

310 PRINT "THURSDAY" 

3aO GOTO 340 

330 PRINT "FRIDAY" 

340 PRINT 

349 REM - RESTART PROGRAM 

350 GOTO 40 
360 END 
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Days between Two Dates 



This program calculates the number of days between two given dates. Leap years are taken into account. 
The program assumes there is one day between today and tomorrow. For instance, there are two days between 
March 1 and March 3 of the same year. 

There are a few precautions to assure the proper use of this program. First, you must be certain to enter the 
earlier date first. Second, dates must be entered in number form (3, not MARCH ) and in the correct order 
(month, day, year, i.e., 3,17 , i976 I Commas, not slashes or dashes, must separate the figures. Third, the 
year must not be abbreviated f 1976 , not 76), even if both dates are in the same century. Finally, the month en- 
tered must not be greater than 12 and the days no greater than the number of days in the particular month. If 
such is the case, the message UNREAL BATE is printed to alert you to the fact that an unreal date 
(such as 14 s3S §1975 ) has been entered. An incorrect answer is likely to result. 

Example: 

John's birthdate is August 8, 1951. How many days old will he be on his 30th birthday? 

S RUN 

DAYS BETWEEN TWO DATES 

FIRST DATE? 8.8a95i 
SECONB DATE? 8.8,1981 
DIFFERENCE « 10958 DAYS 

MORE DATA C1»YES, OsNO)? 

END PROGRAM 

PROGRAH LISTING 

iO PRINT ''DAYS BETWEEN TWO DATES « 

EQ PRINT 

as REH - STATEMENTS 30 TO 60 REQUEST USER INPUT 

30 PRINT "FIRST DATE "I 

40 INPUT Hi^Dl.Yl 

50 PRINT "SECOND DATE''? 

60 INPUT MS.De.Ye 

69 REM - SET VARIABLES TO BE USED IN SUBROUTINE 

70 M=H1 
BO D«Di 
90 V«Y1 






109 REH - SAVE COHPUTED NUHBER OF DAYS IN H 

110 N=A 

119 REH - SET VARIABLES TO BE USED IN SUBROUTINE 

lao M=He 

130 D=DE 

i40 Y=YS 
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150 GOSUB £30 

159 REM - CALCULATE BIFFERENCE AND PRINT 

160 N=A"-N 

170 PRINT "DIFFERENCE «" IN? "DAYS" 

180 PRINT 

189 REH - RESTART OR END PROGRAM? 

190 PRINT "HORE DATA C1«YES, 0=NO)"? 
eOO INPUT X 

ElO IF X«l THEN SO 

ei9 REH - END PROGRAM 

eSO GOTO 460 

ea? REM - SUBROUTINE TO COMPUTE NUMBER OF DAYS SINCE 0,0,0 TO M.D,Y ,.. 

I eeS REM - START WITH TEST FOR UNREAL DATE 

! SES REM - GO TO CORRECT TEST DEPENDING ON NUMBER OF DAYS IN MONTH 

! aso ON M GOTO eeo , eso , seo , 340 , aso , 340 , aso , sso , 340 , . 
aso , 340 , aso 

i e39 REM * IF THIS MESSAGE IS' PRINTED THE ANSWER IS PROBABLY INCORRECT ^ 

1240 PRINT "UNREAL DATE" 

; a49 REM - STOP CALCULATIONS , RETURN TO MAIN PROGRAM 

I aso RETURN 

ess REM - MONTH HAS 31 DAYS 

•aso IF D>31 THEN 340 

; 870 GOTO 350 

iE7§ REM - MWTH IS FEBRUARY? A LEAP YEAR? 

i eSO IF Y/4<>INT<Y/4) THEN 310 

! a90 IF Y/400«lNT<Y/400) THEN SHO 

300 IF Y/iOO<>INT<Y/100) THEN BEO 

309 REM - NOT A LEAP YEAR I MONTH HAS BB DAYS 

310 IF D>a8 THEN a40 . ■ 
: 319 REM - A LEAP YEARl MONTH HAS BB DAYS 

f SaO IF D>S9 THEN 840 \ 

i 330 GOTO 350 \ 

-.339 REM - MONTH HAS 30 DAYS 

1340 IF D>30 THEN £4^ i 

"349 REM - TABLE OF NUMBER OF DAYS FROM IST OF YEAR TO 1ST OF EACH MON 
TH 

350 DATA ,31 ,59 ,90 , lEO , 151 , 181 ,eiS ,343 ,373 ,304 ,334 

360 RESTORE 

365 FOR H*l TO M 

369 REM - GET NUMBER OF DAYS FROM JAN 1 TO 1ST OF MONTH FROM DATA TAB 
LE 

370 READ A 
375 NEXT H 

379 REM - COMPUTE NUMBER OF DAYS FROM 0,0,0 TO M,D,Y 

380 A«A-i"Y-^365i"INTCY/4)-t-D-*-l-INTCY/lOO)-^lNT«Y/4O0) 

389 REM - POSSIBLY A LEAP YEAR? 

390 IF INTCY/4)<>Y/4 THEN 450 

409 REM - CONTINUE TEST FOR LEAP YEAR 

410 IF Y/400aINTCY/400l THEN 430 
4aO IF Y/100«INTiY/100) THEN 450 
4S8 REM "■ YEAR IS A LEAP YEAR" 

439 REM - IF MONTH IS JAN OR FEB ADJUST CALCULATED NUMBER OF DAYS 
430 IF M>e THEN 450 

440 A^A-l 

449 REM - END OF SUBROUTINE, RETURN TO MAIN PROGRAM 

450 RETURN 
460 END 
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OPTION 

To shorten this program you may wish to omit the test for unreal dates. It should be noted that if a month 
of more than 12 is entered when this test is omitted, an input error will result. The program lines which may be 
deleted are listed following the example below. 

Example: 

How many days are there between July 4 and Christmas? 

IRUH 

DAYS BETWEEN TWO DATES 

FIRST DATE? 7,4,1977 

SECOi^^D DATE? 13,05,1977 
DIFFERENCE « 174 DAYS 

HORE DATA C1=YES, 0=NO)? 
END PROGRAM 



PROG RAH LISTING 

10 PRINT "DAYS BETWEEN TWO DATES" 

a 

o 

90 Y=Y1 
100 GOSUe 350 
109 REM - SAVE COMPUTED NUMBER OF DAYS IN N 

e 

e 

140 Y=Y2 

150 GOSUB 350 

159 REM - CALCULATfc DIFFERENCE AND PRINT 

o 
e 

EE7 REM - SUBROUTINE TO CUMPUTE NUMBER OF DAYS SINCE 0,0,0 TO M,D,Y 
(Delete lines 228 - 340) 

349 REM - TABLE OF NUMBER OF DAYS FROM 1ST OF YEAR TO 1ST OF EACH HON 
Tfl 

s 

s 

460 END 
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Anglo to Metric 



This program converts a measure given m angio units to metric units. The conversions available in this pro- 
gram are as follows: 

1 Inches to centimeters 

2 Feet to centimeters 

3 Feet to meters 

4 Yards to meters 

5 Miles to kilometers 

6 Teaspoons to cubic centimeters 

7 Tablespoons to cubic centimeters 

8 Cups to liters 

9 Pints to liters 

10 Quarts to liters 

1 1 Gallons to liters 

12 Bushels to liters 

13 Pecks to liters 

14 Ounces to grams 

15 Pounds to kilograms 

16 Tons to kilograms 

17 Degrees Fahrenheit to degrees Celsius 

You must provide the value of the anglo measurement and the number of the conversion (1 - 17 as listed 
above! which you wish to perform. 

Example: 

Perform the following conversions: 

8.5 mites to kilometers 

75° Fahrenheit to degrees Celsius 

10 gallons to liters 

SRUH 

ANGLO TO HETRIC 

(TO END PROGRAH ENTER 0) 
WHICH CONVERSION DO YOU NEED? 5 
VALUE TO BE CONVERTED? 8»5 
8«5 MILES s 13.6765 KILOHETERS 

WHICH CONVERSION DO YOU NEED? 17 
VALUE, TO BE CONVERTED? 75 
75 DEGREES FAHRENHEIT « 03,83888888889 CELSIUS 

WHICH CONVERSION DO VOU NEED? il 
VALUE TO BE CONVERTED? 10 
10 GALLONS s 37«85 LITERS 

WHICH CONVERSION DO YOU NEED? 

END PROGRAH 
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PROGRAH LISTING 

iO PRINT "ANGLO TO HETRIC" 

eO PRINT 

E9 REH "" ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS 

30 DIH CC17) 

39 REH - LOOP TO ASSIGN CONVERSION FACTORS INTO CC ) 

40 FOR N=l TO 17 
50 READ C<N) 

60 NEXT N 

69 REH - DATA TABLE OF SEVENTEEN CONVERSION FACTORS 

70 DATA E » 540 ,30 .480 , .3048 , « 9144 , 1 « 609 ,4 « 929 , 14 «788 , eE3S6 , »473a 
80 DATA .9463..3.785>35.E4v8«809,ES.3495, «4536 p907»E, .6E14 

89 REH - GET NUHBER OF CONVERSION FRDH PROGRAH DESCRIPTION 

90 PRINT "(TO END PROGRAH ENTER 0)" 

100 PRINT "WHICH CONVERSION DO YOU NEED"? 

110 INPUT N 

119 REH - END PROGRAH? 

ISO IF N=0 THEN 540 

1S9 REH - CONVERSION AVAILABLE? 

130 IF N>17 THEN 100 

140 PRINT "VALUE TO BE CONVERTED"? 

150 INPUT I 

159 REH - PERFORH CONVERSION USING PROPER CONVERSION FACTOR 

160 R=I*C(N) 

169 REH - DIRECT PROGRAH TO PROPER CONVERSION UNITS, PRINT RESULTS 

170 ON N GOTO 180 , EOO , SSO . S40 , S60 , S80 , 300 , 3S0 , 340 , 
360 , 380 , 400 , 4S0 , 440 , 460 , 480 , 500 

180 PRINT I? "INCHES =" ?R; "CENTIHETERS" 

190 GOTO SSO 

EOO PRINT I? "FEET =" ;R? "CENTIHETERS" 

ElO GOTO SSO 

aSO PRINT I ; "FEET = " ; R I "MLTERS " 

E30 GOTO SSO 

S40 PRINT I ? "YARDS = " ; R ? "HETERS " 

S50 GOTO SSO 

S60 PRINT I?"HILES = " ? R ? " KILOHETERS " 

870 GOTO SSO 

SSO PRINT I:"TSP« s";R; "CUBIC CENTIHETERS" 

S90 GOTO SSO 

300 PRINT If"TBSP. «";Rr'CUBIC CENTIMETERS" 

310 GOTO SSO 

SSO PRINT I; "CUPS =";R; "LITERS" 

330 GOTO 5E0 

340 PRINT I : " PINTS = " ? R ? "LITERS " 

350 GOTO SSO 

360 PRINT I ? "QUARTS ~ " ? R | "LITERS " 

370 GOTO SSO 

380 PRINT I? "GALLONS »" ^RT'LITERS" 

390 GOTO SSO 

400 PRINT I; "BUSHELS «" ?R| "LITERS" 

410 GOTO SSO 

4S0 PRINT II "PECKS ^" ?R? "LITERS" 

430 GOTO SSO 

440 PRINT I ? "OUNCES = " ? R ? "GRAHS " 

450 GOTO SSO 

460 PRINT X; "POUNDS =«" ;R? "KILOGRAMS" 
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470 GOTO 520 

480 PRINT I I "TONS « " ; R ; " KTLOGRAHS " 

490 GOTO 5eO 

499 REM - CONVERT FROM DEGREES FARENHEIT TO CELSIUS 

500 Raa~3a)^5/9 

510 PRINT I? "DEGREES FAHRENHEIT =" ;R; "CELSIUS" 

5E0 PRINT 

5E9 REM - RESTART PROGRAM 

530 GOTO 100 

540 END 
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Alphabetize 

This program alphabetizes a list of words or phrases. 

■Numbers may be part of an alphanumeric phrase. However, they will not be put into numeric order unless 

they contain the same number of digits. Numbers with fewer digits must be justified to the right by prefixing 
zeros. Thus, if the numbers you are sorting range into the hundreds, the number 13 would be entered as 013. 

To save memory space, the array at statement 70 should be limited to the maximum number of terms you 

wish alphabetized. The dimension statement should be altered in the following manner: 

70 DIH A*C/V) 
where N = the number of items to be alphabetized. 

Example: 

Alphabetize the following names: 





Robert Wilson 




Susan W. James 




Kent Smith 




Michael Mitchell 




Ann T. McGowan 




Alexander Lee II 




Mary Mitchell 




David Bowers 




Steven Evans 




Carol Jameson 




Linda North 


:70 DIH A^ai) 


IRUN 




ALPHABETIZE 


CTO END PROGRAH ENTER 0) 


NUHBER OF ITEMS? 11 


I TEH 


i ? WILSON ROBERT 


ITEH 


a ? JAMES SUSAN W. 


ITEM 


3 ? SMITH KENT 


ITEH 


4 ? MITCHELL MICHAEL 


ITEM 


5 ? MCGOWAN ANN T. 


ITEM 


6 ? LEE ALEXANDER II 


ITEH 


7 ? MITCHELL MARY 


ITEM 


8 ? BOWERS DAVID 


ITEM 


9 ? EVANS STEVEN 


ITEM 


10 ? JAMESON CAROL 


ITEM 


11 ? NORTH LINDA 


BOWERS DAVID 


EVANS STEVEN 


JAMES SUSAN W. 


JAMESON CAROL 


LEE ALEXANDER II 


MCGOWAN ANN T. 
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MITCHELL HARY 
MITCHELL HICHAEL 
NORTH LINDA 
SHITH KENT 
WILSON ROBERT 

NUHBER OF ITEHS? 

END PROGRAH 

PROGRAH LISTING 



10 
EQ 
30 
40 
50 
60 
hS 
70 
BO 
90 
100 
110 

lao 

iS8 



PRINT 
PRINT 
PRINT 
PRINT 



"ALPHABETIZE 



"(TO END PROGRAM ENTER 0)" 

"NUMBER OF ITEHS"; 
INPUT N 

IF N=0 THEN 330 

REM -LIMIT ARRAY TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RUN 
DIM A^<E5) 
FOR 1=1 TO N 
PRINT "ITEM";l; 
INPUT ASCI) 
NEXT I 
M=N 

REM - THE SORT TECHNIQUE USED COMPARES DATA ITEMS IN DIMINISHING INC 

REMENTS e 
leS REM - THE FIRST PASS COMPARES ITEMS N/S ELEMENTS APART, THE SECOND 

(H/a)/E ELEMENTS APART, AND SO ON UNTIL THE INCREMENT IS EXHAUSTED « 
130 M=INT<M/e) 
140 IF M=0 THEN ESQ 
150 K=N™M 
160 J=l 
170 I=J 
ISO L=I+M 



aOO T*=A«il) 

ElO A^<I)=A$CL) 

SEO A^(L)=Tfi 

S30 I=I~M 

840 IF I>=1 THEN 

E50 J=J+1 

S60 IF J>K THEN 

S70 GOTO 170 

S80 FOR 1=1 TO N 

S90 PRINT A* CI) 

300 NEXT I 

310 PRINT 

3E0 GOTO 40 

330 END 
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OPTION 

You may wish your list alphabetized in reverse, or from highest to lowest. The program changes necessary 
are listed following the example below. 
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Examples 

The scores on a math test range from 82 to 117. Put the students in order according to their scores, from 
highest to lowest. 





89 


Bowers 




102 


Evans 




111 


James 




100 


Jameson 




99 


Lee 




117 


McGowan 




102 


Mitchell 




82 


Mitchell 




97 


North 




91 


Smith 




108 


Wilson 


?70 


DIM ASCII) 


I RUN 






ALPHABETIZE 




<T0 


END PROGRAM ENTER 0) 


NUHBER OF ITEHS? 11 


ITEM 


1 ? 089 


BOWERS 


ITEH 


a ? loe 


EVANS 


ITEH 


3 ? Ill 


JAMES 


ITEH 


4 ? 100 


JAMESON 


ITEH 


5 ? 099 


LEE 


ITEH 


6 ? 117 


MCGOWAN 


ITEM 


7 ? loa 


MITCHELL 


ITEM 


8 ? 08S 


MITCHELL 


ITEM 


9 ? 097 


NORTH 


ITEM 


10 ? 091 SMITH 


ITEM 


11 ? 108 WILSON 


117 


MCGOWAN 




ill 


JAMES 




108 


WILSON 




lOB 


MITCHELL 




lOE 


EVANS 




100 


JAMESON 




099 


LEE 




097 


NORTH 




091 


SMITH 




089 


BOWERS 




osa 


MITCHELL 



NUMBER OF ITEMS? 
END PROGRAM 

PROGRAM LISTING 

i REM ~ OPTION 190 
10 PRINT "ALPHABETIZE^ 

180 L»I•^M 
; 190 IF A*CI)>aA*<L) ■ THEN~ ' BBQ':^ 

' eoo T$«A$CI) 

e 
e 

330 END 
194 
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Conversions of OSBORf^E/McGraw-Hill's Som® Commosi BASIC Programs are 
being made so the 76 programs are ready to run on many popular systems. A 
conversion is available from OSBORNE on cassette for the Commodore PET, and 
conversions will soon be released on cassette and disk for a variety of systems. 
Independent consultants and businesses are also marketing their own conver- 
sions. For further information about these magnetic surfaces, fill out the form 
below and mail it to OSBORNE/McGraw-Hill fa photocopy of the form will do). 

Cut out and mail this request form to: 

Some Common BASIC Programs Conversions 
OSBORNE/McGraw-Hill 
630 Bancroft Way 
Berkeley, California 94710 



Name- 
Street:. 
City:— 
State:..- 



Please send further information regarding con- 
versions of Some Commof^ BASIC Programs for 
the following: 

D Commodore PET 



.Zip:. 



TRS-80 Level II 
Other microcomputer 
S y stem : 



fSOME Common basic PftOGRAMS is designed 
variety of practical BASIC prograrns. The pro 
restricted version of standard BASIC and are cc 
sions of BASIC now available'tg(..DiicrocorT^xitt^5^ 
tions, exanr>ples, and remarks accprnpahy to^^ 
BASIC programmrng logic. . [ i , i^^jC^' 

All 76 programs from.th[s book pre aj^i^vailable 
several popular small computet^' syst^^includin 
Radio Shack TRS-80, and Apfilejl^^ntact the f 
mat ion. .^^^ ; 



i^./:- 



gie WhB^atn use a : 
fi^% v^ritten in a 
|ible witn many ver- 
ier s. Program descrip- 
fg^ to help you follow ' 



m: 



'^\\ 



n iMMi ' ^ ^ 



I cassettes t>r disks for 
He Conrimodore PET'^, 
Ushers for more infor- 



OSBORNE/McGraw-HfJlihjiS^liublished a series c|| (jiooks which provide 
complete sourc?^ li^Wnj^i^or BASIC business pr||gT;ams, complete^ wit^t 

detailed user docume^jti^pn. 'M H, ^ 

The programis puMshed are: - / || |^' 

Payroll ynth Cost Accounting, |M 

Accojurfits Payable and Accounts Receiva||B, anc| 

f G^liferal Ledger .iiyi; 

■■'^' fl^i 'i * 

Each book includes complete source listings, filep^outs, file maintenance 

programs, interactive operator data entry sequejbjp|i)^, screen display for- 
mats, and report printout formats. Every progran|»;fe; accompanied by user 
instructions, program flowcharts, and narrative di(i$Mriptions. All programs 
f^tyre interactive data entry with easy correction j(|f|jfciata entry errors. Con- 
tact the publishers for more information. fe 

■ , _ OSBORNE/jVlcGraw-Hlii'^'i 

630 Bancroft Way jP i 
Berkeley, California 94711 6^ 



26-8 

62-0^ 



>, r 

14-4 
17-9 



04-7 

05-5 

11 -X 

10-1 

12-8 

21-7 

27-6 

09-8 

13-6 

20-9 

22-5 

23-3 

24-1 

25-X 

28-4 
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